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1.0 


SUMMARY 


The purpose of this study is to provide user's training/liaison with 
personnel at NASA MSFC onto the operation and utilization of the SPACE II 
contamination analysis program and to develop a preliminary preprocessor for 
SPACE II to streamline its operation and enhance its "user friendliness". All 
tasks have been completed within the constraints of the contract. This report 
summarizes the preliminary SPACE II preprocessor and documents its current 
status. Although it is not completely operational, it should provide 
sufficient utility to allow evaluation by MSFC. If the preprocessor discussed 
herein is deemed viable, it is recommended that further refinements and 
enhancements be made to insure complete, user friendly operation. 

This computer program users' manual describes the operation and 
features of a preprocessor for the Shuttle/Payload Contamination Evaluation 
Program Version II - The SPACE II Computer Program (Reference 1). The purpose 
of a preprocessor is to collect input from a user by an interactive dialogue. 
The preprocessor then generates an input file that will execute the SPACE II 
program for a case of interest. The interactive dialogue includes logical 
questions, multiple choice questions and definitive questions; the latter 
requires a numerical response. 

The preprocessor is built as as baseline model so the basic principle 
can be evaluated before proceeding with the additional development work that 
will make it fully operational* As a baseline model it will address the first 
order input instructions and create an input file that will execute the SPACE 
II program. The input instructions that the preprocessor will not address and 
the scope of a fully operational preprocessor are also discussed. 
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2.0 


INTRODUCTION 


SPACE II was developed to provide the user with a flexible analytical 
tool with which to predict the external self-induced molecular contaminant 
environment of a space vehicle during its orbital operations. It 
mathematically synthesizes the contaminant environment due to material sources 
of Spacelab, the Space Shuttle Orbiter and any other spacecraft 
configuration. It predicts surface deposition by direct and return flux 
transport on surfaces and molecular column density within any selected 
line-of-sight. The user has an option to modify geometric configurations, 
outgassing data and mission parameters through the proper program commands. 

The current flexible design of SPACE II makes it possible to modify the 
basic geometric model; Spacelab in the Shuttle Orbiter bay. Spacelab 
configuration data is input to the program through mass transport factor files 
known as TAi^E 12, 14 or 15. Another method is through formatted input cards 
but this is so seldom used that it is not a feature of the preprocessor. 

These tapes are made using the TRASYS II computer program (Reference 2) using 
a radiation analogue to Lambertian mass emission from outgassing materials. 

A user should first conduct an audit of existing Orbiter, Spacelab and 
payload input tapes. If the appropriate tapes are available then the user can 
proceed directly to the baseline preprocessor and construct a SPACE II input 
file. If a user is to evaluate a new payload in the Orbiter payload bay, then 
the existing Orbiter TAPE14 will apply. The user then must develop a new 
TAPE15 if there is to be a column density or return flux calculation and a new 
TAPE12 when direct flux results are of interest. References 1 and 2 will 
assist the user in developing these additional TAPES. 

The baseline preprocessor does not address the development of any input 
TAPE but requires corresponding information such as geometric node numbers. 

It is best to have all input TAPES available to the user before using the 
preprocessor. There is additional information such as node locations and 
orientations that are available in TRASYS II output which the preprocessor may 
require depending on the type of calculation results expected from SPACE II. 
For these reasons it is recommended that all input TAPES be made and computer 
outputs be available before a user attempts to use the preprocessor. 

The following sections discuss the preprocessor program once a user is 
ready to proceed with developing a SPACE II input file. Section 3 defines the 
individual subroutines, input instructions and output results. Section 4 
describes future work that will enhance the operation and utility of a SPACE 
II preprocessor. Within the appendices are two sample case outputs; one that 
develops a limited input file and another that exercises all possible program 
options, and in addition a listing of the preprocessor source code in FORTRAN 
IV. 
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3.0 


PROGRAM DESCRIPTION 


3. 1 Program Overview 

The SPACE II preprocessor is an interactive dialogue program that 
collects input from a user in a real time question and answer session to 
create an input file for the SPACE II program. There are six principal 
sections in the program which are utilized in part or whole. These six 
sections are: 

1) Initialize - Give default values to all input variables before 
program execution. 

2) Control data - Define the program control parameters to determine 
which contaminant analysis is of interest. These inputs are 
generally associated with the namelist CONTRL input section of 
SPACE II. 

3) Geometric data - Define the surfaces or engines that are sources 
of contamination and surfaces that are susceptible to 
contaminants. These inputs are associated with the namelist 
INPUTA input section of SPACE II. 

4) Source information - Define the new surfaces by giving its area, 
material type and location in the payload bay. If the contaminant 
source in an engine or vent then define its location and 
orientation. These inputs are associated with the formatted card 
images at the end of namelist INPUTA input section of SPACE II. 

5) Mission data - Define the flight mission parameters such as 
altitude and Orbiter orientation. The inputs are associated with 
the MPDB namelist input section of SPACE II. 

6) Build space file - Create an input file for SPACE II using the 
responses given by the user. 

The interrelationship between each of the six principal sections is 
illustrated in Figure 1. Sections 2 through 5 collect all of the inputs while 
output is performed in Section 6. There are numerous other input features to 
the SPACE II program that are not dealt with by the current baseline 
preprocessor. These include namelist INPUTB, the formatted card images after 
INPUTB, namelist INPUTC and the formatted card images after namelist MPDB. 

The user can also refer to Figure 6-4 of the SPACE II Users Manual for 
the logical flow that is used to develop a SPACE II input file. 
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INITIALIZE 




Figure 1 


Program Overview 





3.2 Program Subroutines 


The following subroutines are complete and operational on a FORTRAN IV 
complier. They were written with the intent to compile as a simplier FORTRAN 
source (ANSI) on a mini-computer. Tt»ere is one subroutine PLUMEX that is not 
ANSI standard FORTRAN IV but can be made compatible by moving all data 
statements forward of any executable code and also by separating the mixed 
mode assignments into separate data statements. The functional 
responsibilities of each subroutine is given below: 


SPACEP - As a main program it calls these subroutines; INIT, CONTRL, 
INPUTA, ADDCON, INPUTB, ADDATA, ADDTMP, MPDB and ADDVFS, 
which collect input from the user for each of the namelist 
input sections. It then creates a file using the BUILD 
subroutine that will execute the SPACE computer program for a 
particular case of interest. Default values are given to the 
input variables by the subroutine INIT. 


CONTRL - Collect Inputs from the user by an interactive dialogue for 
the CONTRL namelist input section in the SPACE computer 
program. These inputs will specify the type of analysis, 
source of contamination, geometric configuration and whether 
there is new information that is not a part of block data in 
the SPACE computer program. 

INPUTA - Collect inputs from the user by an interactive dialogue for 

the INPUTA namelist input section. These inputs identify the 
node number of surfaces and points that are sources of 
contamination and also the surfaces that as a receiver are 
susceptible to a contaminant flux. 


MPDB - Collect input from the user by an interactive dialogue for 

the MPDB namelist input section. These inputs will determine 
the flight mission parameters such as orbital altitude, 
orientation, and velocity. If there is to be a column 
density or return flux analysis, then the receiver location, 
orientation and f ield-of-view are requested from the user. 

ADDCON - Collect input from the user by an interactive dialogue for 
the formatted input section after INPUTA namelist. These 
inputs will specify the contaminant source characteristics* 

If it is a surface source then the type of material, its 
surface area and the vehicle it belongs on is important. If 
it is a point source Chen the type of engine or vent, its 
location and orientation is requested from the user. The 
surface source information is usually attached as TAPE4 with 
the input file while point source characteristics for OrbiCer 
engines are a part of block data in the SPACE computer 
program. 


BUILD - Create a file that will execute the SPACE computer program 
using inputs given by the user* 
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KYBDIN - 


ORBTR 


INIT - 


PLUMEX - 


CLEAR - 


HEADER - 


Check whether the response made by the user is appropriate 
wxth regard to it being an integer number, floating point 
number, character string or an unrecognizable input. 

This is the Shuttle Orbiter block data which contains 
descriptive information such as surface area, material name 
an material location for each of the geometric shapes that 
collectively simulate the Orbiter. 

Default values are given to the input variables that result 
in a simple baseline case* 

This is the Orbiter engine block data which contains 
descriptive information such as species mass fractions, 
engine location and type. It also contains the plume 
coefficients which describe the emission pattern from each 
engine with respect to radial distance and angle from the 
centerline. The structure is not ANSI standard FORTRAN and 
may need to be modified for use with a simplier complier. 

Clears the terminal screen on a Beehive terminal for a new 
question and a user response. The escape code is machine 
dependant and may need to be modified to an appropriate code 
for use with a different terminal. 

Places a header on the terminal screen before a new question 
IS given to the user. Each header describes which section ol 
the input listing is currently being considered. 


constraints on this task there are some 
subroutines that are incomplete but these do not adversely affect the 

th!Ie "h of this preprocessor as a baseline model. After 

iistLcH^n!! •?! then the full capability of SPACE input 

auhr^^- • functional responsibility of each 

subroutine is given below: ^ 


INPUTS 


ADDATA - 


interactive dialogue for 
the NPUTB namelist input section. These inputs will modify 
either the mass loss characteristics of a surface material o! 
the distribution coefficients of an Orbiter engine. There 
are default values in the SPACE computer program for these 
variables. Mass loss characteristics include outgassing rate 
and time constant while plume distribution coefficients 
comprise species mass fractions, molecular weight and 
molecular diameter* 

Collect inputs from the user by an interactive dialogue for 
the format data after INPUTS namelist input section. These 
inputs describe how many changes to the preset values and the 
new data input for contaminant species, kind of materials 
location of materials and type of engines. 
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ADDTMP - Collect inputs from the user by an interactive dialogue for 
the formatted data after INPUTB namelist input section or 
namelist data in INPUTC input section. These inputs define 
the temperature of each surface node which is normally 
attached as TAPEIO with the input file. A temperature file 
is available as a part of the SPACE II data base for the 
Orbiter and Skylab nodes. 

ADDVFS - Collect inputs from the user by an interactive dialogue for 
the formatted data after MPDB namelist input section. Th' fs 
inputs are the mass transport factors between any two 
surfaces having a view of each other. As a geometric 
dependent parameter of distance from the source and angle ■*££ 
the centerline, each establishes the fraction of mass that 
can impinge on a surface. A mass transport factor file is 
usually attached as TAPE12 with the input file. 

LMOPX - This is the Long Module - One Pallet configuration of 

Spacelab block data which contains descriptive information 
such as surface area, material name and material location for 
each of the 69 geometric shapes and one vent that 
collectively simulate this Orbiter payload. 

SMTPX - This is the Short Module - Three Pallet configuration of 
Spacelab block data which contains the same type of 
information as the previous block data on 91 surfaces and one 
vent. 

FIVPX - This is the Five Pallet configuration of Spacelab block data 
comprising 82 surfaces and is another payload that is a part 
of the SPACE data base. 

P801X - This is a P80-1 satellite configuration in block data of the 
Space Test Program and includes 67 surface nodes. 

DSPIUS - This is a Defense Satellite Program satellite and Inertial 
Upper Stage transfer vehicle configuration in block data 
using 59 surfaces to collectively simulate another Orbiter 
payload. 

TEACH - Instructions are given on request at the beginning of program 
execution that informs the user about constructing a SPACE 
input file by using the preprocessor. 

MATLX - This is the material and engine block data which contains 

information on spacecraft material names and locations, the 
species that outgas from these materials and also names of 
Orbiter engines that are a part of the SPACE block data. 

lERROR - Error messages concerning user input instructions that are 
not compatible or incomplete for a case of interest. 
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3«3 Input Description 


Input Format - User input to an interactive dialogue as a question and 
answer format is by an integer number, a real number with a decimal point 
(exponential format is not available), or a character string including a blank 
line. If the response is unrecognizable or inappropriate due to typographical 
errors, then the answer prompt returns for additional user input. The 
baseline preprocessor does not give a descriptive message describing why the 
user response is inappropriate. But in most cases it is apparent and the 
location in the source code where descriptive messages will occur is 
identified at the end of subroutine KYBDIN. 

Almost every variable has a default value so not all parameters require 
a response. Any parameter not given a value will retain the default value. 
Default values can be found in Reference 1 or in Tables 1 through 4. A sample 
of user input to the interactive dialogue is shown in the Appendices. 

Input Parameters - The input variables that a user will encounter while 
executing the baseline preprocessor are described in Tables 1 through 4: 

Table 1 - Program Control Parameters, Table 2 ~ Geometric Parameters, Table 3 
^ Contaminant Parameters and Table 4 - Mission Parameters. Under the column 
heading "Variable Type"; the letter "R" indicates a real number is input which 
contains a decimal point, the letter "I" indicates an integer number is input 
which contains no decimal point and the letter "C" indicates a character 
string is input which contains either alphabetic or numerical symbols. 

"Default valuer" are listed under the next column heading as the value of the 
parameter internally initialized by SPACE before program execution. 

There are three basic types of questions in the interactive dialogue; a 
logical question using a yes or no response, a multiple choice question using 
an integer input or a definitive question which requires a real number such as 
orbital altitude or a character string like the case title, for example* 

The yes or no response to a logical question can be shortened to the 
letters "Y" or "N", respectively. Only the first character of the string 
defines the response so other responses such as "YEA" or "NAY" are 
acceptable. Logical questions usually coincide with the logical variables in 
Tables 1 through 4 which have a TRUE or FALSE default value. 

A definitive question is the most difficult to answer while working at 
a computer terminal without some degree of preparation in advance. The 
response these questions require is simplier when certain items are 
available. Among the items of information that should be available to the 
user are: an output listing from TRASYS (Thermal Radiation Analysis System) 

or similar computer program for the payload configuration, a listing of the 
additional input files such as TAPE 4 which contains geometric and material 
information, a blueprint of the payload configuration, a protractor and a 
scale. These items will provide a basis for defining geometric node numbers, 
node locations and node orientations. Locations are given with respect to the 
standard Orbiter coordinate system so it is oest to construct the geometric 
payload model in this sv^tem. Orientations are given with respect to the 
spherical coordinate sysc^m shown in Figure 2. 
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are sixty-five (65) input v .-iables listed in Table 1 through 4 

of these""-"i, preprocessor iLr 

these variables will query the user for an input value but subsequently 

will have no impact on the SPACE II input file. This occurs bccausroJh^ 

descHoJion A star identifies these variables. Th^ 

hlrl IT variable is brief and should be used as a guide 

comnT h o*’i«^nal user manual (Reference 1) for SPACE II contains a 

<le8cript lon. The parameter names are the same as the corresponding 

deterainL^h ^ ®**=®«*= the preprocessor can be easily 

aetermined by direct comparison. 

inn..^ ^ vf “ that it will eliminate the need to 

dS 5®‘^f“?® P^®vious input or information from the built-in 

U Lf • H their value. REPORT is an example of a variable that 

IS defined according to the user choice of a contaminant transport mechanism. 

chosL'^^ICCODE* i”and*^K k spacecraft configuration is 

cnosen, ICCODE, I and K sequence numbers, MOUTl, M0UT2, MEDl, MED2, Ml and M2. 

will make'tSrsPACE important benefit of a preprocessor is that it 

Tnnn^^, • “ program user friendly by creating a manageable set of 

This development work has reduced that number by more than half to 65 inout 

™ -ed v.riLu. ar d.«„.„4 heT 

value from previous input instructions. Future work on a preproceLor concept 
will .v.ntu. 11 , th, ^ Z,gd^btr 


Table 1 - 

PROGRAM CONTROL 

PARAMETERS 


Parameter 

2ZE£ 

Default 

Description 

TITLE 

c 

— 

Description of analysis 

ORBITR 

c 

True 

There is an STS Orbicer 
Configuration 

PAYLOD 

c 

False 

There is a payload 

NEWCON 

c 

False 

New geometric information 
not found on TAPE4 

SPCRFT 

c 

— 

Payload name 

SERIES 

I 

1000 

Numbering scheme for payload 
nodes 

NTAPE4 

c 

False 

Geometric data on TAPE4 

OUT 

c 

True 

Outgassing contaminants 

ED 

c 

False 

Early desorption contaminants 
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Table 1 - PROGRAM CONTROL PARAMETERS (Cont'd) 


Parameter 


Default 

Description 

LEAK 

C 

False 

Crew cabin leaks contaminants 

REFLCT 

C 

Fd'* se 

Contaminants can reflect on 
other surfaces 

NRFLCT 

I 

1 

Number of reflections 

PLUME 

C 

False 

Engine or vent contaminants 

14EWPL 

c 

False 

New engine or vent 
information not found on 
TAPES 

MCD 

c 

True 

Compute mass /number column 
density 

DIRECT 

c 

False 

Compute direct flux transport 

PFAS2 

c 

False 

Compute return flux 
transport from ambient 
scattering 

RFSS 

c 

False 

Compute return flux 
transport from contaminant 
scattering 

MACH* 

R 

laO 

Engine flow Mach for 
contaminant scattering 

TSTARR* 

R 

— 

Engine flow temperature for 
contaminant scattering 

MAXTMP 

C 

True 

Maximum temperature of 
surfaces 

MINTMP 

C 

False 

Minimum temperature of 
surfaces 

ATCODE 

I 

0 

Temperature is on Tape 10 in 
column one through 5 

NEWTNL* 

c 

False 

Temperature input 
permanently updates Tape 10 

NEWTCD* 

c 

False 

Temperature input 
temporarily updates Tape 10 

MEWMFP 

c 

False 

Combine tape 14 and 15 and 
generate a RMS file 

Although there 
final SPACE II 

are inputs 
input file* 

for these 

variables they have no impact on 
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Table 2 « GEOMETRIC PARAMETERS 


Parameter 

Type 

Default 

SURFSC 

I 

— 

SSURFS 

I 

— 

PNTSC 

I 

— 

ONTIME 

F 

0.0 

RECEVR 

I 

1234 

FOVANG 

F 

180. 


Description 

Eliminate surface nodes that 
are contaminant sources 

Eliminate surface nodes that 
reflect contaminant 

Identify engines /vents that 
are on 

Time duration of engine/vent 

Identify surface nodes 
susceptible to contaminants 

Field-of-^iew half angle for 
direct flux receivers 


Table 3 - CONTAMINANT PARAMETERS 


Parameter 

IDENT 

SECT 

MATRL 

AREA 

aoc 

CT^PE 

CXLOC 


Type 

I 

C 

c 

F 

C 

c 

F 


Default 


CYLOC 


C2L0C 


CTHETA 


CPHI 


Description 

Surface node number 

Location of surface 

Name of surface material 

Area of surface (in^) 

Location of engine/vent 

Name of engine/vent 

Orbiter X location of 
engine/vent (in) 

Orbiter Y location of 
engine/vent (in) 

Orbiter Z location of 
engine/vent (in) 

Angle of nozzle centerline 
to Z-axis (deg) 

Angle of nozzle centerline 
in X“Y plane from +X axis 
(deg) 
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Table 4 - MISSION PARAMETERS 


Parameter 

Type 

Default 

Description 

PITCH 

F 

0.0 

Orbiter pitch angle (deg) 

YAW 

F 

0.0 

Orbiter yaw angle (deg) 

ROLL 

F 

0.0 

Orbiter roll angle (deg) 

ALT 

F 

400. 

Orbiter altitude (km) 

VA 

F 

7650. 

Orbiter velocity (m/sec) 

SUNL 

C 

False 

Low sunspot activity 

SUNM 

C 

True 

Medium sunspot activity 

SUNK 

c 

False 

High sunspot activity 

XO 

F 

1107. 

Receiver X^-location (in) 

YO 

F 

0.0 

Receiver Y-location (in) 

20 

F 

507. 

Receiver Z-location (in) 


Mass Column 

Density Calculation Only 

THETAL 

F 

— 

Angle of receiver centerline 
to 2-axis (deg) 

PHIL 

F 


Angle of receiver centerline 
in X-Y plane from +X axis 
(deg) 


Return Flux Calculat 

ion Only 

ALPHA 

F 

0.0 

Angle of receiver centerline 
to 2-axis (deg) 

BETA 

F 

0.0 

Angle of receiver centerline 
to local +X axis (deg) 

GAMMA 

F 

0.0 

Angle of receiver centerline 
to local +2 axis (deg) 

THETA 1 

F 

0.0 

Angle off surface 2-axis 
where field-of-view (FOV) 
begins (deg) 

THETA2 

r 

10.24 

Angle off surface 2-axis 
where FOV ends (deg) 
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Table 4 - MISSION PARAMETERS (Cont'd) 


Parameter 

IZ£i 

Default 

Description 

PHIl 

F 

0.0 

Angle off 
where FOV 

surface X-axis 
begins (deg) 

PHI2 

F 

360. 

Angle off 
where FOV 

surface X-axis 
ends (deg) 

DTHETA 

F 

10.24 

Increment 

in THETA angle 

DPHI 

F 

45. 

Increment 

in PHI angle 


3.4 Output Description 

Output from the baseline preprocessor is in two formats; one is to the 
terminal screen and one as a local data file. The former has an organization 
that is similar to the four sections in Section 3.3 **Input Description**. 
Presently the HEADER subroutine is incomplete but in some instances will write 
a header on the terminal screen before each question is given to the user. 

The headers that are operational include: *'Space II input deck preprocessor** 

at the beginning of program execution, **Program control parameters** which 
corresponds to Table 1 input listing while Table 2 input listing is associated 
with **Contamination source definition** heading. The printout of a sample case 
in Appendix A and B illustrate this output format. 

There is a special character; >E, that is written to the terminal 
screen to make it completely clear. Whenever this escape E code appears then 
the previous information on the screen disappears so a new question can be 
written. Although this code is machine dependent, it can be easily changed to 
the appropriate code in any particular application. 


The local data file called TAPEl that appears at the end of program 
execution is shown at the end of each sample problem. This is compatible with 
the SPACE II input structure and will execute the contamination case of 
interest. 

3.5 Resource Estimates 


The SPACE II preprocessor can be complied and executed with a central 
memory limit of 70500. 

There is one external reference; EOF that is not a part of the 
preprocessor to determine when there is an end of a data file. 

The central^processor^unit (CPU) time to process a particular case 
depends on the complexity of the input instructions. Experience shows it has 
always been less than a second. 
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4.0 Future Enhancements 


The genesis of a preprocessor has lead to a baseline computer program 
that creates a limited input data file for the SPACE II computer program. It 
has also provided an equally important opportunity to consider the needs of a 
user who has to deal with the intensive input demand of SPACE II. Although 
the preprocessor is incomplete, it does demonstrate that a software system 
that can handle every input function leading to a successful SPACE II 
execution will necessary be complex. There are a number of ideas that have 
emerged throughout the development of this preprocessor. These are listed 
below for consideration: 

1) User Input - The structure of a preprocessor to SPACE II will be 
somewhere between simple and complex depending on the needs of each user. If 
an analysis involves simple geometric configurations, such as an empty Orbiter 
payload bay and can use previously built data bases, then a simple 
preprocessor will adequately handle the task. However, if new geometric 
configurations or data base information is necessary to accomplish a task, 
such as program particular thermal and outgassing data, then the preprocessor 
will necessary have to be complex. A formal definition from the user 
community with respect to their needs is an important aspect of any future 
enhancement . 

2) Planning - A plan is necessary to assure that the work done during 
an early stage of development will be applicable to the final product at a 
later date. The plan should consider the demands on a user community, the 
resources of hardware components that these people utilize, the structure of 
software systems that manage their data bases and also the interrelationship 
between those many input resources that a user has at their disposal such as 
blueprints and other computer programs. 

Tape Development - In addition to the input data file are several 
tapes which are attached to the job stream before executing the SPACE II 
program. These include surface materials data (TAPE4), surface temperature 
data (TAPEIO), mass transport factors data between adjacent surfaces (TAPE12) 
and from surfaces to points in space (TAPE 14 & 15). A preprocessor should 
help the user build these tapes using results from a radiation computer 
program like TRASYS. 

Receiver Information - SPACE II input requires the location and 
orientation of each receiver when a user wants to determine either deposition 
from return flux contaminant transport or the effect of molecular column 
density within the field-of-view of an optical component. This information is 
typically available within the output of their geometric model. A 
preprocessor should access all relevant information that is a part of the 
geometric model so a user can be confident that the information is consistent 
and free of mistakes. 

5) Graphics - An interactive plotting capability is the best method 
that a user has to determine whether the input values are correct. It is easy 
to mistakenly input the wrong values unless there is a means for feedback that 
will quickly show the user how the computer program will interpret their input 
instructions. 
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Data base - The SPACE II data base is an integral part of molecular 
contamination analysis, A preprocessor should show the user what data is 
available and help them determine whether it is applicable. Although the data 
base is extensive, it must be functional to save the user time and eliminate 
redundant work. 

It is recommended that MSFC review the concept of a SPACE II 
preprocessor and in particular the baseline processor which is presented in 
this report. A preprocessor can train a new engineer in contamination 
analysis while being an assistance to an engineer with experience by quickly 
doing work that had previously been done at the expense of hours or days on a 
computer terminal. It is our impression that a preprocessor is necessary but 
at this time we would appreciate MSFC comments about their needs and direction 
on future work. 
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APPENDIX A - MINIMUM INPUT SAMPLE CASE 


This appendix shows the interactive dialogue that a user will encounter 
while developing a SPACE II input file for a limited input case. The case 
corresponds to the first sample problem of Section 5 in Reference 1 which 
demonstrates the operation of SPACE II when almost all input parameters ae 
given their default value. The problem involves outgassing from the Space lab 
Long Module/One Pallet configuration at ten hours into a mission. The mass 
and number column density of outgassing species along a line-of-s ight parallel 
to the Z-axis is computed. After the interactive dialogue is a listing of the 
input file for SPACE II that was developed by the preprocessor. 

Although a minimum input case may seem to imply that very little 
response is necessary. In practice, however, the user must answer about 25 
questions. The preprocessor has this feature because it will query a user 
about all options in the control parameters input section and then ask a user 
only about those options in the latter input sections that are relevant to an 
analysis. 

It needs to be mentioned that there is one anomaly in the namelist 
section INPUTA of the input file. It shows only one Orbiter surface is taken 
out of the analysis instead of all Orbiter surfaces outside of the payload 
bay. This discrepancy can be easily removed in later work by allowing for a 
user to input a range of node numbers. Presently the baseline preprocessor 
requires that the user input each individual node number. It is cumbersome to 
sequentially input the numbers one through 155, so only the number 155 was 
input. Later the file will need editing from one surface with node number 155 
to 155 surfaces starting with node number one. 
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ORIGINAL PAGE fS 
OF POOR QUALFTY 


♦>E 


SPACE II 

INPUT DECK 

preprocessor 


DO YOU NEED INSTRUCTIONS (YES/NO)? 

? N 
t>E 


INPUT TITLE FOR THIS CASE (UP TO 72 CHARACTERS); 

SAMPLE CASE NO. 1 MINIMUM INPUT CASE (DEFAULT PARAMETERS) 


program CONTROL 

parameters 


DO YOU WANT THE ORBITER CONFIGURATION ACTIVATED? 

? Y 
t>E 


program control 
PARAMETERS 
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PAGf 1*3 
OF PbOR QUALITY 


DO YOU WANT A PAYLOAD CONFIGURATION ACTIVATED? 


? Y 
t>E 


PROGRAM CONTROL 

parameters 


WHICH OF THE FOLLOWING PAYLOAD CONFIGURATIONS DO fOU WISH 


1) LMOP 

2) SMTP 

3) FIVP 

4) P80-1 

5) DSP/IUS 

6) NEW CONFIGURATION 


? 1 
t>E 


PROGRAM CONTROL 
PARAMETERS 


ARE SURFACE SOURCES TO BE ACTIVATED? 


? Y 
t>E 


PROGRAM CONTROL 

parameters 


SELECT FROM THE FOLLOWING LIST: 


Oa}Gf«';AL PAGE ?3 
OF POOR QUALITY 


1) OUTGASSINQ ONLY 

2) EARLY DESORPTION ONLY 

3) CABIN LEAKAGE ONLY 

4) OUTGASSING + EARLY DESORPTION 

5) OUTGASSING + CABIN LEAKAGE 

6) EARLY DESORPTION + CABIN LEAKAGE 

7) OUTGASSING + EARLY DESORPTION + CABIN LEAKAGE 


? 1 
t>E 


PROGRAM CONTROL 
PARAMETERS 


4 


DO YOU WANT MULTIPLE REFLECTIONS EVALUATED? 


? N 
Y>E 


PROGRAM CONTROL 
PARAMETERS 


DO YOU WANT ANY ORBITER ENGINES OR VENTS ACTIVATED? 


? N 
t>E 


% 

PROGRAMCONTROL 

PARAMETERS 
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DO YOU WANT TO INPUT NEW POINT SOURCES? 


ORIGJMAJ. PAf.r 
POOR QUAL.TY 


? N 
t>E 


PROGRAM CONTROL 
PARAMETERS 


SELECT TYPE(S) OF ANALYSIS DESIRED: 

(TYPE 0 WHEN DONE) 

1) MASS COLUMN DENSITY (MCD) ALONG A LINE OF SIGHT 

2) DIRECT FLUX AND/OR DEPOSITION ON A RECEIVING SURFACE 

3) RETURN FLUX/DEPOSITION DUE TO AMBIENT SCATTERING 


? 0 . 
T>E 


PROGRAM CONTROL 
PARAMETERS 


WHICH OF THE FOLLOWING THERMAL PROFILES FROM 
TAPE 10 SHOULD BE USED FOR THIS CASE: 


1) 

COLUMN 

1 

(MAXTMP) 

2) 

COLUMN 

2 

(MINTMP) 

3) 

COLUMN 

3 

(ATCODEsI) 

3) 

COLUMN 

4 

(ATCODE=2) 

5) 

COLUMN 

5 

(ATCOOE=3) 

6) 

COLUMN 

6 

(ATCODE=4) 

7) 

COLUMN 

7 

IATCODE=5) 


? 1 
t>E 
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Cr?}C^!’AJ r'AOF !3 
OF poor? QUAUTY 


PROGRAM CONTROL 
PARAMETERS 


DO YOU WANT TO INPUT THERMAL DATA IN ADDITION TO 
THAT CONTAINED ON TAPE 10? 


? N 
t>E 


PROGRAM CONTROL 
PARAMETERS 


DO YOU WANT THIS RUN TO GENERATE A TAPE 13 
THE ORBITER TAPE 14 AND PAYLOAD TAPE 15 


? Y 
t>E 


CONTAMINATION SOURCE 

definition 


DO YOU WANT ANY SURFACES DELETED? 

? Y 
+ >E 


CONTAMINATION SOURCE 





ORIGINAL PA'GJ:: m 
OF POOR Q. jal:ty 



DEFINITION 


YOU HAVE TWO OPTIONS FOR ZEROING OUT SURFACES. 



1) IF YOU KNOW THE SEQUENCE NUMBER (NOT THE NODE NUMBER) 
OF THE SURFACE (S) TO BE ELIMINATED, YOU CAN INPUT 
THE NUMBER(S) DIRECTLY. TERMINATING THE LIST WITH "O" 

2) IF YOU KNOW THE NODE NUMBER, BUT NOT THE SEQUENCE 
NUMBER, YOU CAN ELECT TO REVIEW ALL NODES AND THEIR 
SEQUENCE NUMBERS, 1 SCREENFUL AT A TIME. IF YOU 
SELECT THIS OPTION, REVIEW THE LIST AND JOT DOWN 
THE APPROPRIATE SEQUENCE NUMBERb. AT THE END OF 
THE REVIEW, THE PROGRAM WILL PROMPT YOU AS IN 1) 


PLEASE SELECT EITHER OPTION 1) OR 2) 

? 1 
t>E 


CONTAMINATION SOURCE 
DEFINITION 


INPUT SEQUENCE NUMBER(S) OF NODES TO BE 
ELIMINATED (TYPE 0 WHEN DONE) 


? 155 

? 0 
t>E 


CONTAMINATION SOURCE 
DEFINITION 


PLEASE ENTER RECEIVING SURFACE NODE NUMBERS (UP 
TO 25). ENTER 0 WHEN DONE: 

NODE? 

? 1234 





1 







NODE? 


? 0 
t>E 

DO YOU WANT TO CHANGE THE ORBITER DEFAULT ATTITUDE? 
(PITCH = 0.00, YAW = 0.00, ROLL = 0.00) 


? N 
f>E 

DO YOU WANT TO CHANGE THE ORBITER DEFAULT ALTITUDE? 
(ALT = 400.00 KM) 


? N 
t>E 

DO YOU WANT TO CHANGE THE ORBITER DEFAULT VELOCITY? 

(VEL s 7650. M/SEC) 

? N 

t>E CRtGjMM.. . 


OF POOR 0 

SELECT DESIPED ATMOSPHERE DENSITY: 

1) LOW 

2) MEDIUM 

3) HIGH 


POOR QUALfT^ 


SAMPLE CASE NO. 1 MINIMUM INPUT CASE (DEFAULT PARAMETERS) 
SCONTRL 

ORBITRs.TRUE. , 

PAYLODs.TRUE. , 

OUT=.TRUE. , 

EDs. FALSE. , 

LEAK=. FALSE. , 

PLUME*. FALSE. , 

MCD=.TRUE. , 

DIRECT*. FALSE. , 

RFAS2*. FALSE. . 

RFSS*. FALSE. . 

REFLCT*. FALSE. , 

NEWCON*. FALSE. , 

NTAPE4*. FALSE. , 

NEWTCD*. FALSE. , 

NEWTNL*. FALSE. . 

NEWMFS*. FALSE. , 

NEWMFPs.TRUE. , 

MAXTMPs.TRUE. , 

REPORT (7 )=. TRUE. , REPORT! 51 )=. TRUE. . 

REPORT ( 35 ) * . TRUE . , REPORT ( 37 ) * . TRUE . 

GO*. TRUE. , 

SEND 

LMOP 1000 
SINPUTA 

SURFSCI 155)=0., 

RECEVRI 1)*1234, 

ICCODEd)* 1*1. 

GO*. TRUE. , 

SEND 
SINPUTB 
SEND 
SMPDB 

THETALI 1)= 0.00,PHIL( 

GO*. TRUE. . 


1 )= 0 . 00 , 


APPENDIX B - ALL PROGRAM OPTIONS SAMPLE CASE 

This appendix shows the interactive dialogue that a user will encounter 
while developing a SPACE II input file using all program options within the 
preprocessor. The problem involves all contaminant sources from an Orbiter 
and new payload called DSCS at ten hours into a mission. The results will 
include number column density, direct flux, return flux, and second surface 
flux transport deposition. All surfaces will outgas and show early desorption 
of light gases. Additional light gases will originate from the crew cabin and 
two evaporator will be expelling water overboard. There is a new surface and 
point source not found within the data TAPES that must accompany the input 
file. The Orbiter is 380 km above Earth and has a ten degree pitch angle 
below local vertical with a zero yaw and roll angle. After the interactive 
dialogue is a listing of the input file for SPACE II that was made by the 
preprocessor. 

There are about 75 questions that that user must answer to create this 
input file. Although this is an unusual case because the different transport 
mechanisms ate typically handled as separate cases. It does demouotrate the 
variety of questions that a user will encounter. The upper limit on the 
number of questions will generally depend on how many surface or point sources 
and receiver locations are defined in the input file. If, however, all source 
characteristics are defined by the alternate TAPE format then the number of 
questions will be on the order of this sample problem. 
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f 


p 

t>E 


; ,v. 

OF POOrt Q'J 



SPACE II 
INPUT DECK 
PREPROCESSOR 


#• 


i 


DO YOU NEED INSTRUCTIONS (YES/NO)? 

? N 
t>E 


INPUT TITLE FOR THIS CASE (UP TO 72 CHARACTERS): 

? SAMPLE CASE - EXERCISE ALL PROGRAM OPTIONS 

t>E 


PROGRAM CONTROL 
PARAMETERS 


DO YOU WANT THE ORBITER CONFIGURATION ACTIVATED? 

? Y 
t>E 

PROGRAM CONTROL 



OR:Gfi'v^\L PAQc rs 

OF POOR QUALITY 


DO YOU WANT A PAYLOAD CONFIGURATION ACTIVATED? 

? Y 
t>E 


PROGRAM CONTROL 
PARAMETERS 


WHICH OF THE FOLLOWING PAYLOAD CONFIGURATIONS DO YOU WISH: 

1) LMOP 

2) SMTP 

3) FIVP 

4) P80-1 

5) DSP/IUS 

6) NEW CONFIGURATION 


? 6 
t>E 


PROGRAM CONTROL 
PARAMETERS 


WHAT IS THE NAME OF THE PAYLOAD (6 LETTERS MAX)? 

? DSCS 
t>E 


PROGRAM CONTROL 
PARAMETERS 
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IN WHAT RANGE ARE THE PAYLOAD NODE NUMBERS? 


OF POOr< QUAL 


1) 1000-1999 

2) 2000-2999 

3) 3000-3999 

4) 4000-4999 


? 1 
f>E 


PROGRAM CONTROL 
PARAMETERS 


HOW WILL PAYLOAD CONFIGURATION BE INPUT? 

1) VIA TAPE 4 

2) VIA USER INPUT (THIS SESSION) 


? 2 
t>E 


PROGRAM CONTROL 
PARAMETERS 


ARE SURFACE SOURCES TO BE ACTIVATED? 

? Y 
t>E 


PROGRAM CONTROL 
PARAMETERS 

30 






OF 

SELECT FROM THE FOLLOWING LIST: 

1) OUTGASSING ONLY 

2) EARLY DESORPTION ONLY 

3) CABIN LEAKAGE ONLY 

4) OUTGASSING + EARLY DESORPTION 

5) OUTGASSING + CABIN LEAKAGE 

6) EARLY DESORPTION + CABIN LEAKAGE 

7) OUTGASSING + EARLY DESORPTION + CABIN LEAKAGE 


? 7 
t>E 


PROGRAM control 
PARAMETERS 


DO YOU WANT MULTIPLE REFLECTIONS EVALUATED? 
? Y 

HOW MANY REFLECTIONS ARE DESIRED? 

? 4 

t>E 


PROGRAM CONTROL 
PARAMETERS 


DO YOU WANT ANY ORBITER ENGINES OR VENTS ACTIVATED? 




CKIGfr^hL ■'; 

OF poor; Q-JaLfT/ 


PROGRAM CONTROL 
PARAMETERS 


DO YOU WANT TO INPUT NEW POINT SOURCES? 

? Y 

HOW MANY NEW POINT SOURCES WILL THERE BE? 

? 1 
t>E 


PROGRAM CONTROL 
PARAMETERS 


SELECT TYPE(S) OF ANALYSIS DESIRED; 

(TYPE 0 WHEN DONE) 

1) MASS COLUMN DENSITY (MCD) ALONG A LINE OF SIGHT 

2) DIRECT FLUX AND/OR DEPOSITION ON A RECEIVING SURFACE 

3) RETURN FLUX/DEPOSITION DUE TO AMBIENT SCATTERING 

4) RETURN FLUX/DEPOSITION DUE TO SELF SCATTERING 


? 1 

? 2 

? 3 

? 0 
t>E 


PROGRAM CONTROL 
PARAMETERS 


32 


OF POOR QUALfTV 


WHICH OF THE FOLLOWING THERMAL PROFILES FROM 
TAPE 10 SHOULD BE USED FOR THIS CASE: 


1) COLUMN 

2) COLUMN 

3) COLUMN 
3) COLUMN 

5) COLUMN 

6) COLUMN 

7) COLUMN 


1 (MAXTMP) 

2 (MINTMP) 

3 (ATCODEsI) 

4 (ATCODE=2) 

5 (ATCODE=3) 

6 (ATC0DEs4) 

7 (ATCODEsS) 


? 1 
t>E 


PROGRAM CONTROL 
PARAMETERS 


CO YOU WANT TO INPUT THERMAL DATA 
THAT CONTAINED ON TAPE '10? 


IN ADDITION TO 


? N 
t>E 


PROGRAM CONTROL 
PARAMETERS 


DO YOU WANT THIS RUN TO GENERATE A TAPE 13 FROM 
THE ORBITER TAPE 14 AND PAYLOAD TAPE 15? 


? Y 
t>E 


ORIGINAL PAGE 19 
OF POOR QUALITY 

CONTAMINATION SOURCE 
DEFINITION 


DO YOU WANT ANY SURFACES DELETED? 

? Y 
t>E 


CONTAMINATION SOURCE 
DEFINITION 


YOU HAVE TWO OPTIONS FOR ZEROING OUT SURFACES: 

1) IF YOU KNOW THE SEQUENCE NUMBER (NOT THE NODE NUMBER) 
OF THE SURFACE(S) TO BE ELIMINATED, YOU CAN INPUT 
THE NUMBER(S) DIRECTLY. TERMINATING THE LIST WITH "0" 

2) IF YOU KNOW THE NODE NUMBER, BUT NOT THE SEQUENCE 
NUMBER, YOU CAN ELECT TO REVIEW ALL NODES AND THEIR 
SEQUENCE NUMBERS, 1 SCREENFUL AT A TIME. IF YOU 
SELECT THIS OPTION, REVIEW THE LIST AND JOT DOWN 
THE APPROPRIATE SEQUENCE NUMBERS. AT THE END OF 
THE REVIEW, THE PROGRAM WILL PROMPT YOU AS IN 1 ) 


PLEASE SELECT EITHER OPTION 1) OR 2 ) 


? 2 
t>E 

* REVIEW CONFIGURATION - PRESS RETURN TO CONTINUE * 


SEQ # 

NODE 

PLACE 

MATL 

AREA 

1 

20 

RADOOR 

TEFLON 

12200.0 

2 

22 

RADOOR 

TEFLON 

12200.0 

3 

24 

RADOOR 

TEFLON 

12200.0 

4 

26 

RADOOR 

TEFLON 

12200.0 

5 

30 

RADOOR 

TEFLON 

12200.0 

6 

32 

RADOOR 

TEFLON 

12200.0 

7 

34 

RADOOR 

TEFLON 

12200.0 

8 

36 

RADOOR 

TEFLON 

12200.0 

9 

40 

RADOOR 

TEFLON 

25580.0 

10 

42 

RADOOR 

TEFLON 

25580.0 

1 1 

44 

RADOOR 

TEFLON 

25580.0 

12 

46 

RADOOR 

TEFLON 

25580.0 

13 

50 

RADOOR 

TEFLON 

25580.0 

14 

52 

RADOOR 

teflon „ 

25580.0 

15 

54 

RADOOR 

TEFLON 

25580.0 




ORiG*-,’!'!. r,‘r-5^ 

OF POOR QJALJTY 


16 

56 

RADOOR 

TEFLON 

25580.0 

17 

21 

FUSLAG 

LRSI 

12200.0 

. 18 

23 

FUSLAG 

LRSI 

12200.0 

19 

25 

FUSLAG 

LRSI 

12200.0 

20 

27 

FUSLAG 

LRSI 

12200.0 

REVIEW 

CONFIGURATION 

- PRESS 

RETURN TO 

CONTINUE ♦ 

SEQ # 

NODE 

PLACE 

MATL 

AREA 

21 

31 

FUSLAG 

LRSI 

12200.0 

22 

33 

FUSLAG 

LRSI 

12200.0 

23 

35 

FUSLAG 

LRSI 

12200.0 

24 

37 

FUSLAG 

LRSI 

12200.0 

25 

41 

FUSLAG 

LRSI 

25580.0 

26 

43 

FUSLAG 

LRSI 

25580.0 

27 

45 

FUSLAG 

LRSI 

25580.0 

28 

47 

FUSLAG 

LRSI 

25580.0 

29 

51 

FUSLAG 

LRSI 

25580.0 

30 

53 

FUSLAG 

LRSI 

25580.0 

31 

55 

FUSLAG 

LRSI 

25580.0 

32 

57 

FUSLAG 

LRSI 

25580.0 

33 

202 

FUSLAG 

LRSI 

32520.0 

34 

203 

FUSLAG 

LRSI 

32520.0 

35 

230 

FUSLAG 

LRSI 

25730.0 

36 

240 

FUSLAG 

LRSI 

16340.0 

37 

241 

FUSLAG 

LRSI 

16340.0 

38 

250 

FUSLAG 

LRSI 

19580.0 

39 

260 

FUSLAG 

LRSI 

20240.0 

40 

301 

FUSLAG 

LRSI 

26600.0 

REVIEW 

CONFIGURATION 

- PRESS 

RETURN TO 

CONTINUE =* 

SEQ M 

NODE 

PLACE 

MATL 

AREA 

41 

305 

FUSLAG 

LRSI 

30930.0 

42 

306 

FUSLAG 

NOMEX 

30930.0 

43 

307 

FUSLAG 

NOMEX 

24770.0 

44 

311 

FUSLAG 

LRSI 

26600.0 

45 

315 

FUSLAG 

LRSI 

30930.0 

46 

316 

FUSLAG 

NOMEX 

30930.0 

47 

317 

FUSLAG 

NOMEX 

24770.0 

48 

420 

FUSLAG 

LRSI 

1312.0 

49 

425 

FUSLAG 

LRSI 

1312.0 

50 

60 

OMS 

LRSI 

1145.0 

51 

62 

0M3 

LRSI 

7850,0 

52 

64 

OMS 

LRSI 

37920.0 

53 

66 

OMS 

LRSI 

1991.0 

54 

67 

OMS 

LRSI 

2028.0 

55 

68 

OMS 

LRSI 

415.0 

56 

70 

OMS 

LRSI 

895.0 

57 

72 

OMS 

LRSI 

1406.0 

58 

74 

OMS 

LRSI 

1312.0 

59 

76 

OMS 

LRSI 

715.0 

60 

77 

OMS 

LRSI 

600.0 

REVIEW 

CONFIGURATION 

- PRESS 

RETURN TO 

CONTINUE * 

SEQ # 

NODE 

PLACE 

MATL 

AREA 

61 

80 

OMS 

LRSI 

1145.0 

62 

82 

OMS 

LRSI 

35 7813.0 




63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 


84 

OMS 

LRSI 

37740.0 

86 

QMS 

LRSI 

1991.0 

87 

OMS 

LRSI 

2028.0 

88 

OMS 

LRSI 

415.0 

90 

OMS 

LRSI 

895.0 

92 

OMS 

LRSI 

1406.0 

94 

OMS 

LRSI 

1312.0 

96 

OMS 

LRSI 

715.0 

97 

OMS 

LRSI 

601.0 

100 

WING 

NOMEX 

6356.0 

102 

WING 

NOMEX 

29590.0 

104 

WING 

NOMEX 

9125.0 

110 

WING 

NOMEX 

23340.0 

112 

WING 

NOMEX 

19280.0 

115 

WING 

LRSI 

19280.0 

117 

WING 

HRSI 

5650.0 

118 

WING 

HRSI 

2508.0 

119 

WING 

LRSI 

3302.0 


SEQ # 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


SEQ # 


IGURATION 

- PRESS 

RETURN TO 

CONTINUE * 

NODE 

PLACE 

MATL 

AREA 

121 

WING 

RCC 

2251.0 

122 

WING 

RCC 

3123.0 

130 

WING 

NOMEX 

6356.0 

132 

WING 

NOMEX 

29590;0 

134 

WING 

NOMEX 

9125.0 

140 

WING 

NOMEX 

23340.0 

142 

WING 

NOMEX 

19280.0 

145 

WING 

LRSI 

19280.0 

147 

WING 

HRSI 

5650.0 

148 

WING 

HRSI 

2508.0 

149 

WING 

LRSI 

3302.0 

151 

WING 

RCC 

2251.0 

152 

WING 

RCC 

3123.0 

106 

ELEVON 

NOMEX 

6499.0 

107 

ELEVON 

NOMEX 

17210.0 

136 

ELEVON 

NOMEX 

6499.0 

137 

ELEVON 

NOMEX 

9125.0 

450 

ELEVON 

NOMEX 

138.0 

451 

ELEVON 

NOMEX 

415.0 

452 

ELEVON 

NOMEX 

692.0 

QURATION 

* PRESS 

RETURN TO 

CONTINUE * 

NODE 

PLACE 

MATL 

AREA 


101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

1 14 


453 

ELEVON 

454 

ELEVON 

455 

ELEVON 

456 

ELEVON 

457 

ELEVON 

458 

ELEVON 

459 

ELEVON 

460 

ELEVON 

461 

ELEVON 

462 

ELEVON 

463 

ELEVON 

464 

ELEVON 

465 

ELEVON 

466 

ELEVON 


NOMEX 

960.0 

NOMEX 

1246.0 

NOMEX 

1523.0 

NOMEX 

1800.0 

NOMEX 

2076. n 

NOMEX 

2353.0 

NOMEX 

2630.0 

NOMEX 

138.0 

NOMEX 

415.0 

NOMEX 

692.0 

NOMEX 

969.0 

NOMEX 
NuMEX ,, 
NOMEX ** 

1246.0 

1523.0 

1800.0 


115 

467 

ELEVON 

NOMEX 

2076.0 

116 

468 

ELEVON 

NOMEX 

2353.0 

117 

469 

ELEVON 

NOMEX 

2630.0 

1 18 

160 

CREW 

RCC 

7191.0 

119 

161 

CREW 

LRSI 

9348.0 

120 

162 

CREW 

LRSI 

9348.0 

7 

♦ REVIEW 

CONFIGURATION 

- PRESS 

RETURN TO 

CONTINUE 

SEQ 

' NODE 

PLACE 

MATL 

AREA 

121 

163 

CREW 

LRSI 

3380.0 

122 

164 

CREW 

LRSI 

3380.0 

123 

165 

CREW 

LRSI 

4253.0 

124 

166 

CREW 

LRSI 

4253.0 

125 

167 

CREW 

HRSI 

12590.0 

126 

168 

CREW 

HRSI 

12590.0 

127 

169 

CREW 

HRSI 

9600.0 

128 

170 

CREW 

HRSI 

9600.0 

129 

171 

CREW 

HRSI 

3705.0 

130 

172 

CREW 

HRSI 

3705.0 

131 

174 

CREW 

LRSI 

20720.0 

132 

175 

CREW 

LRSI 

10150.0 

133 

177 

CREW 

LRSI 

10150.0 

134 

180 

CREW 

WINDOW 

1424.0 

1 35 

181 

CREW 

WINDOW 

1424.0 

136 

182 

CREW 

WINDOW 

1424.0 

137 

183 

CREW 

WINDOW 

1424.0 

138 

184 

CREW 

WINDOW 

1424.0 

139 

185 

CREW 

WINDOW 

1424.0 

140 

190 

CREW 

LRSI 

10250.0 

7 

* REVIEW 

CONFIGURATION 

- PRESS 

RETURN TO 

CONTINUE 

SEQ # 

NODE 

PLACE 

MATL 

AREA 

141 

380 

TAIL 

LRSI 

16920.0 

142 

381 

TAIL 

LRSI 

16520.0 

143 

382 

TAIL 

LRSI 

8833.0 

144 

383 

TAIL 

LRSI 

8833.0 

145 

384 

TAIL 

LRSI 

13940.0 

146 

385 

TATI, 

LRSI 

13940.0 

147 

386 

TAIL 

LRSI 

6116.0 

148 

387 

TAIL 

LRSI 

6116.0 

149 

388 

TAIL 

LRSI 

2744.0 

150 

389 

TAIL 

LRSI 

2744.0 

151 

390 

TAIL 

LRSI 

1160.0 

152 

391 

TAIL 

LRSI 

1160.0 

153 

392 

TAIL 

LRSI 

3081.0 

154 

393 

TAIL 

LRSI 

3081.0 

155 

399 

TAIL 

HRSI 

3823.0 


7 

t>E 


CONTAMINATIO 


0 U R C E 


D E F 


I 0 N 


1 


37 




INPUT SEQUENCE NUMBER(S) OF NODES TO BE 
ELIMINATED (TYPE OWHEN DONE) 


? 101 ^ 

? 0 i 

t>E i 


I 

CONTAMINATION SOURCE 
DEFINITION 


DO YOU WANT ANY SURFACES TO BE DELETED AS 
SECOND SURFACE SOURCES? 


7 


^ E 



CONTAMINATION SOURCE 

DEFINITION - , 

i 

YOU HAVE TWO OPTIONS FOR ZEROING OUT SURFACES: ; 

1) IF YOU KNOW THE SEQUENCE NUMBER (NOT THE NODE NUMBER) 

OF THE SURFACE(S) TO BE ELIMINATED, YOU CAN INPUT ( 

THE NUMBER(S) DIRECTLY, TERMINATING THE LIST WITH "0" 

2) IF YOU KNOW THE NODE NUMBER, BUT NOT THE SEQUENCE 
NUMBER, YOU CAN ELECT TO REVIEW ALL NODES AND THEIR 
SEQUENCE NUMBERS, 1 SCREENFUL AT A TIME. IF YOU 
SELECT THIS OPTION, REVIEW THE LIST AND JOT DOWN 
THE APPROPRIATE SEQUENCE NUMBERS. AT THE END OF 

THE REVIEW, THE PROGRAM WILL PROMPT YOU AS IN 1) , 


PLEASE SELECT EITHER OPTION 1) OR 2) 



CONTAMINATION SOURCE 
DEFINITION 


INPUT SEQUENCE NUMBER(S) OF NODES TO BE 
ELIMINATED (TYPE 0 WHEN DONE) 


? 101 


? 0 
t>E 


CONTAMINATION SOURCE 
DEFINITION 


SELECT ACTIVE ORBITER POINT SOURCES 


YOU HAVE TWO OPTIONS FOR ACTIVATING ORBITER POINT 
SOURCES: 


1) IF YOU KNOW THE NODE NUMBER OF THE ENGINE 
OR VENT YOU WANT TO ACTIVATE, YOU CAN 
SIMPLY INPUT THE NODE NUMBER AND THE 
DESIRED ON TIME (IN SECONDS) 




2) IF YOU DON'T KNOW THE NODE NUMBER. YOU CAN ELECT 
TO REVIEW ALL ORBITER PREDEFINED POINT SOURCES, 
JOT DOWN THE DESIRED NODE NUMBERS AND THEN 
BRANCH TO OPTION 1 


PLEASE SELECT EITHER OPTION 1) OR 2) 


t>E 


REVIEW ENGINES/VENTS 

- PRESS 

RETURN TO 

CONTINUE * 



NODE 

LOC 

TYPE 

X 

Y 

Z 

THETA 

PHI 

7112 

FLF -X 

RCS 

332.0 

-14.0 

389.0 

0.0 

0.0 

7122 

FCF -X 

RCS 

332.0 

0.0 

391.0 

0.0 

0.0 

7132 

FRF -X 

RCS 

332.0 

14.0 

389.0 

0.0 

0.0 

7123 

FLS +Y 

RCS 

360.0 

-47.0 

368.0 

0.0 

0.0 

7113 

FLS +Y 

RCS 

360.0 

-47.0 

354.0 

0.0 

0.0 

7115 

FLU +Z 

RCS 

350.0 

-13.0 

39 395.0 

0.0 

0.0 

7125 

FCU +Z 

RCS 

350.0 

0.0 

395.0 

0.0 

0.0 


il 


^ m 


7135 

FRU 

+Z 

RCS 

350.0 

13.0 

395.0 

0.0 

0.0 

7116 

FLD 

-2 

RCS 

333.0 

-41.0 

381.0 

0.0 

0.0 

7126 

FLD 

-2 

. RCS 

347.0 

-45.0 

386.0 

0.0 

0.0 

7144 

FRS 

-Y 

RCS 

362.0 

47.0 

368.0 

0.0 

0.0 

7134 

FRS 

-Y 

RCS 

362.0 

47.0 

354.0 

0.0 

0.0 

7136 

FRD 

« 7 

RCS 

333.0 

41.0 

381.0 

0.0 

0.0 

7146 

FRD 

-2 

RCS 

347.0 

45.0 

386.0 

0.0 

0.0 

7211 

ALA 

+X 

RCS 

1657.0 

-119.0 

473.0 

0.0 

0.0 

7231 

ALA 

+X 

RCS 

1557.0 

-132.0 

473.0 

0.0 

0.0 

7243 

ALS 

+ Y 

RCS 

1516.0 

-123.0 

459.0 

0.0 

0.0 

7223 

ALS 

+Y 

RCS 

1529.0 

-123.0 

459.0 

0.0 

0.0 

7233 

ALS 

+Y 

RCS 

1542.0 

-122.0 

459.0 

0.0 

0.0 

7213 

ALS 

+Y 

RCS 

1555.0 

-122.0 

459.0 

0.0 

0.0 




[ 


t 


H 

I 




0 


* REVIEW ENGINES/VENTS - PRESS RETURN TO CONTINUE * 


NODE 

LOC 

TYPE 

X 

Y 

2 

THETA 

PHI 

7245 

ALU +2 

RCS 

1516.0 

-132.0 

481.0 

0.0 

0.0 

7225 

ALU +2 

RCS 

1529.0 

-132.0 

481,0 

0.0 

0.0 

7215 

ALU +2 

RCS 

1542.0 

-132.0 

481.0 

0.0 

0.0 

7246 

ALD -2 

RCS 

1516.0 

-112.0 

437.0 

0.0 

0.0 

7226 

ALD -2 

RCS 

1529.0 

-111.0 

440.0 

0.0 

0.0 

7236 

ALD -2 

RCS 

1542.0 

-110.0 

443.0 

0.0 

0.0 

7311 

ARA +X 

RCS 

1557.0 

119.0 

473.0 

0.0 

0.0 

7331 

ARA +X 

RCS 

1557.0 

132.0 

473.0 

0.0 

0.0 

7344 

ARS -Y 

RCS 

1516.0 

123.0 

459.0 

0.0 

0.0 

7324 

ARS -Y 

RCS 

1529.0 

123.0 

459.0 

0,0 

0.0 

7334 

ARS -Y 

RCS 

1542.0 

123.0 

459.0 

0.0 

0.0 

7314 

ARS -Y 

RCS 

1555.0 

123.0 

459.0 

0.0 

0.0 

7345 

ARU +2 

RCS 

1516.0 

132.0 

481.0 

0.0 

0.0 

7325 

ARU +2 

RCS 

1529.0 

132.0 

481.0 

0.0 

0.0 

7315 

ARU +2 

RCS 

1542.0 

132.0 

481.0 

0.0 

0.0 

7346 

ARD -2 

RCS 

1516.0 

112.0 

437.0 

0.0 

0.0 

7326 

ARD -Z 

RCS 

1529.0 

111.0 

440.0 

0.0 

0.0 

7336 

ARD -2 

RCS 

1542.0 

110.0 

443.0 

0.0 

0.0 

8116 

FLD -2 

VCS 

324.0 

-46.0 

374.0 

0.0 

0.0 

8136 

FRD -2 

VCS 

324.0 

46.0 

374.0 

0.0 

0.0 

REVIEW ENCINES/VENTS 

- PRESS 

RETURN TO 

CONTINUE 

* 


NODE 

LOC 

TYPE 

X 

Y 

2 

THETA 

PHI 

8257 

ALD -2 

VCS 

1565.0 

-144.0 

459.0 

0.0 

0.0 

8258 

ALS +Y 

VCS 

1565.0 

-118.0 

457.0 

0.0 

0.0 

8357 

ARD -2 

VCS 

1565.0 

144.0 

459.0 

0.0 

0.0 

8358 

ARS +Y 

VCS 

1565.0 

-118.0 

457.0 

0.0 

0.0 

6877 

ARS +Y 

EVAP1 

1506.0 

127.0 

305.0 

0.0 

0.0 

6879 

ALS -Y 

EVAP1 

1506,0 

-127.0 

305.0 

0.0 

0.0 

9000 

SMALL 

OMS 

80.0 

0.0 

0.0 

0.0 

0.0 

9002 

0 

LARGE 

OMS 

180.0 

0.0 

0.0 

0.0 

0.0 



El 


0.0 0.0 


0.0 


0.0 





( 


0 



1 


I 


CONTAMINAT ION SOURCE 


! 




7 

t>E 


0.0 


definition 


INPUT NODE NUMBER OF ORBITER ENGINE 
WANT ACTIVATED (ENTER 0 TO TERMINATE 


OR VENT YOU 
) 


? 6877 


INPUT POINT SOURCE ON TIME (IN SECONDS) 


? 1.0 


INPUT NODE NUMBER OF ORBITER ENGINE OR VENT YOU 
WANT ACTIVATED (ENTER 0 TO TERMINATE) 


? 6879 

INPUT POINT SOURCE ON TIME (IN SECONDS) 


? 1.0 


INPUT NODE NUMBER OF ORBITER ENGINE OR VENT 
WANT ACTIVATED (ENTER 0 TO TERMINATE 


? 0 
t>E 


CONTAMINATION SOURCE 
DEFINITION 


NEW POINT SOURCE INPUTS - 

INPUT NODE NUMBER OF NEW ENGINE OR VENT YOU 
WANT ACTIVATED (ENTER 0 TO TERMINATE) 

? 7200 

INPUT POINT SOURCE ON TIME (IN SECONDS) 

? 1 • 
t>E 






A -m. 








* i 


CONTAMINATION SOURCE 
DEFINITION 


PLEASE ENTER RECEIVING SURFACE NODE NUMBERS (UP 
TO 25). ENTER 0 WHEN DONE: 

NODE? 

? 1101 
NODE? 

? 0 
t>E 


CONTAMINATION SOURCE 
DEFINITION 


DO YOU WANT THE FIELD OF VIEW OF ANY OF THE 
RECEIVERS LIMITED TO LESS THAN 90 DEGREES (HALF ANGLE)? 


? Y 

INPUT RECEIVER NODE NUMBER (0 TO END! 


? 1101 

INPUT DESIRED FOV LIMITING HALF ANGLE 
? 45. 

INPUT RECEIVER NODE NUMBER (0 TO END) 


? 0 
t>E 


*** NEW SURFACE CONFIGURATION INPUTS 


INPUT NEW NODE NR. ("O" IF DONE! 


? 1101 

INPUT LOCATION (6 LETTERS MAX! 




? lUS 

INPUT MATERIAL (6 LETTERS MAX) 

? PAINT 

INPUT SURFACE AREA (SQ. IN.) 

? 200. 

INPUT NEW NODE NR. CO" IF DONE) 

? 0 
t>E 

NEW POINT SOURCE INPUTS 

NEW POINT SOURCE NUMBER 1 - NODE NUMBER 7200 
INPUT POINT SOURCE LOCATION (6 LETTERS MAX) 

? GAS 

INPUT POINT SOURCE TYPE (6 LETTERS MAX) 

? VENT 

INPUT POINT SOURCE X-COORDINATE (INCHES) 

? 1000 . 

INPUT POINT SOURCE Y-COORDINATE (INCHES) 

? 20 . 

INPUT POINT SOURCE Z-COORDINATE (INCHES) 

? 400. 

INPUT POINT SOURCE ORIENTATION ANGLE (THETA) 

? 180. 

INPUT POINT SOURCE ORIENTATION ANGLE (PHI) 

43 

? 45. 

t>E 






DO YOU WANT TO CHANGE THE ORBITER DEFAULT ATTITUDE? 
(PITCH = 0.00, YAW = 0.00, ROLL s 0.00) 

? Y 

ENTER PITCH ANGLE IN DEGREES - 
? -10. 

ENTER YAW ANGLE - 

? 0 . 

ENTER ROLL ANGLE - 

? 0 . 

t>E 

DO YOU WANT TO CHANGE THE ORBITER DEFAULT ALTITUDE? 

(ALT = 400.00 KM) 

? Y 

ENTER DESIRED ALTITUDE (IN KM) 

? 380. 

t>E 

DO YOU WANT TO CHANGE THE ORBITER DEFAULT VELOCITY? 

(VEL = 7650. M/SEC) 

? Y 

ENTER DESIRED VELOCITY (IN M/SEC) 

? 7700. 

t>E 

SELECT DESIRED ATMOSPHERE DENSITY: 

1) LOW 

2) MEDIUM 

3) HIGH 


? 2 
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ORIGINAL PAGE !3 
OF POOR QUALfTY 


♦** SAMPLE CASE - EXERCISE ALL PROGRAM OPTIONS *** 
SCONTRL 

ORBITRs.TRUE. , 

PAYLOD=.TRUE. , 

OUT*. TRUE., 

EDr.TRUE. , 

LEAK=.TRUE, , 

PLUME=.TRUE. , 

MCDs.TRUE. , 

DIRECTS. TRUE. 

RFAS2S.TRUE. . 

RFSSs. FALSE. , 

REFLCTs.TRUE. 

NRFLCTs 4, 

NEWCONs 
NTAPE4S 
NEWTCDs 
NEWTNLs 
NEWMFSs 
NEWMFPs 
MAXTMPs 


TRUE. , 

FALSE. , 

FALSE. , 

FALSE. , 

FALSE. , 

TRUE. . 

TRUE., 

REPORT(7)s.TRUE. ,REPORT( 
REPORTI21 )=4*.TRUE. , 
REPORT(35)=. TRUE. , REPORT 
REPORT(45)=.TRUE. , 
GOs.TRUE. , 

SEND 

DSCS 1000 
SINPUTA 
SURFSC( 

SSURFSI 
PNTSC( 

PNTSC( 

PNTSCi 
ONTIMEI 
ONTIMEI 
ONTIMEI 
NEWPLI 
RECEVRI 


51)=. TRUE. , 
(37)=. TRUE. 


101 )= 0 . , 
101 )= 0 . , 

1 ) =6877, 

2) =6879, 

3) =7200, 

1 )= 1 . 00 , 
2 )= 1 . 00 , 
3)= 1.00, 

3)s.TRUE. , 
1 )= 1101 , 
ICCODEIDs 1*2, 
FOVANGI 1)= 45.00, 
GOs.TRUE. , 


SEND 
156 1101 
3 7200 
99999 
SINPUTB 
SEND 
SMPDB 

PITCH=-10.00, 
YAW= 0.00, 
ROLLS 0.00, 
ALT=380.00, 
VA=7700.0. 
THETALI 1)= 
GOs.TRUE. , 
SEND 
STOP 


lUS 

GAS 


PAINT 

VENT 


200.0 

1000.0 


20.0 


400.0 


0.00, PHIL! 1)= 0.00, 


180.0 
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APPENDIX C - PROGRAM LISTING 

This appendix contains a listing of the SPACE II preprocessor source 

code. 


4069A/2166A 
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ORIGINAL PAGi: T3 
OF POOR QU^'-!"TY 

program SPACEP ( INPUT .OUTPUT , TAPE5=INPUT, TAPE6=OUTPUT . TAPE 1 


* SPACE II INPUT DECK PREPROCESSOR 


martin marietta aerospace 

DENVER DIVISION 
P.O. BOX 179 
DENVER, COLORADO 80201 


★ 
★ 


- DESIGNED AND CODED BY 
0- C. PIZZICAROLI 
AUGUST 1983 


COMMON /CNTRL/ ORBITR, 

MCD 

+ 

+ 


+ 

+ 

+ 

+ 


+ 

+ 

+ 


PLUME, 

NRFLCT, 

NEWMFP, 

REPORT(70) 

NEWPL(50) 

FOVANG(25) 

NNEWPL 

ISURFOOO) 


AMBWT, 

PITCH. 


CHNGPL 
, TSTARTi 
MOUT2, 
AMBDIA, 

YAW, 

X0(25: 


3), TSTOP(3), 
MED1, MED2, 
TSTARR, MACH, 

roll, SUNL, 


n^lcrr’ ED. LEAK 

MINTMP’ MAXTMP’ NEWTNu’ NEWMFS 

COMMON/CONFIG/ SURFSC(300) SSURFS(?^ 

^ CNTIME(50), RECEVR(25). I CCo5e 

SEP I" , newdat, adsurf, 

ISSU',:,JOo'l' 

DHNGES. CHNGEK. CHNGEP, 

COMMON /RATES/ RATE(25,10), TAU(25 10) 

AGEORB, AGEPLD, MOUTI, 

Ml, M2, 

TIMEOO 

COMMON /ORBIT/ ALT, VA 

SUNM, SUNh' 

► /GEOM/ JOWIN. VORGIN, ^RGIN X0(25), Y0I25), Z0(25) 

COMMON /,NTEG/THETAL,25|; JHI | ^^iHETA„25?‘“?S^?Ji,25, . 

oS|j: -h,,25,, 

COMMON /TEMPS/ TEMP (2000) 

^COMMON/PLUMES/ PLUMEC( tO 25) . SPECMF) 10,251 , CXLOC(50) 

* CIDENi'so!' CPHK50I 

COMMON/MOLEC/ MOLWT(IO), DIA(IO) 

COMMON /SURFS/IDENT( 300) , AREAI300) 

COMMON/CHAR/ITITLE(72), iRSPNslsO) 

2 KINDS(25). PLACE(30),’ 

^ MATRLI300), NAMEPL 

NPLUMEI25) 

^COMMON/CHFLAG/ CHATT, CHALT . CHVEL , CHSUN, CHDS.CHORIG, 

: jl? ' CHR^y^?5^.^0,?”“^HTAS^ 

^COMMON/INDX/ 'N0XSPI25i, IN0XM25 INDXPI 301 . INOXPl. 

COMMON/NUCON>NUSECTI6,300i. NUMATU 6, 300 1 , NUL0CI6 50I 
2 NUTYPEIG.SOI, NUSPEClejO NUKIND 6 25 

* NUPLACI6.301, NUNPLMI6 25 "“''‘'^“'“•251 


+ 


CYL0CI50) 


NEWNAM(6) 

SPECIE(IO) 

CL0CI50) 


LTYPEI25) 
SECT (300) 
CTYPE(50) 


125) 


REAL ONTIME, MACH. MOLWT 
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0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0002 
0002 
0002 
0002 
0002 
0002 
= 0002 
0002 
0002 
0002 
0003 
0003 
,0003 
,0003 
,0003 
,0003 
0003 
0003 
0003 

0003 

0004 
0004 
0004 
0004 
0004 
0004 
OOOA 
0004 
0004 

0004 

0005 

,000b 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0007 


INTEGER 


+ 

+ 

I 

+ 

+ 

+ 

+ 

+ 

+ 


LOGICAL 


SURFSC, 

PLACE, 

CLOC, 

ORBITR, 

DIRECT. 

NEWTNL, 

NEWPL, 

CHATT, 

CHVIEW, 

CHINDX, 


SSURFS, 

SPECIE, 

CTYPE, 

PAYLOD, 

RFAS2, 

NEWMFS, 

SUNL, 

CHALT, 

CHTIM, 

CHWT, 


PNTSC, 

SECT, 

CHNGES, 

OUT, 

RFSS, 

NEWMFP, 

SUNiY, 

CHVEL, 

CHRATE, 

CHDIA, 


RECEVR, 

MATRL, 

CHNGEK, 

ED, 

REFLCT, 

MINTMP, 

SUNH, 

CHSUN, 

CHTAU, 

INDXSP, 


ITITLE. 

ATCODE, 

CHNGEP, 

LEAK, 

NEWCON, 

MAXTMP, 

R41DEP. 

CHDS, 

CHAGE, 

INDXK, 


LTYPE. 

SERIES, 

CHNGPL 

PLUME. 

NTAPE4. 

REPORT. 

NEWDAT, 

CHORIG, 

CHPLUM, 

INDXP, 


KINDS, 

CIDENT, 

MCD, 

NEWTCD, 

GO, 

ADSURF, 

CHLOC, 

CHMF, 

INDXPL 


0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0008 
0008 


0008 
ET0008 


PERFORM INITIALIZATION OF DEFAULT VALUES, CONSTANTS, COEFFICIENTS, 
CALL INIT 

WRITE PROGRAM HEADER TO SCREEN 
CALL HEADER! 1 ) 

PROVIDE PROGRAM INSTRUCTIONS IF DESIRED 


ORiQINAL PACE tS 
OF POOR QUALITY 


WRITE(6,5010) 

6010 FORMAT! /////IX, 35HDO YOU NEED INSTRUCTIONS !YES/NO)? ) 

CALL KYBDIN! 1RSPNS.3, ITYPE. IVALUE.FVALUE, IF IRST , ILAST ' 
IFIIRSPNS!IFIRST).EQ.1HY) CALL TEACH 

BEGIN THE INTERACTIVE QUESTION/ANSWER DIALOGUE PROCESS - 

.ASK FOR THE TITLE OF THE USER'S ANALYSIS INPUT DECK 

100 CALL CLEAR 
WRITE!6.6020) 

6020 FORMAT!/////1X.48HINPUT TITLE FOR THIS CASE !UP TO 72 CHARACTERS 

+/ / ) 

CALL KYBDIN! IRSPNS , 3 , 1 TYPE , I VALUE , FVALUE , I F I RST . ILAST ) 

I = IFIRST - 1 
DO 110 N=1 .72 


ititle!n: 

CONTINUE 


= IRSPNS!! + N 


110 

COLLECT INPUTS FOR NAMELIST SCONTRL 
200 CALL CONTRL 

COLLECT INPUTS FOR NAMELIST SINPUTA 
300 CALL INPUTA 

IF NEW CONFIGURATION DATA IS REQUESTED. 


PROMPT FOR THE APPROPRIATE 


0008 
0008 
0008 
0008 
0008 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 

0009 

0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0011 
0011 
0011 
0011 
0011 
0011 
0011 
0011 
0011 
0011 
0012 

IN0012 


400 NEWDAT = .FALSE. 

DO 410 K=1,50 

IF!NEWPL!K) ) NEWDAT = .TRUE. 

410 CONTINUE 

IF! NEWDAT. OR. NEWCON) CALL ADDCON 
..COLLECT INPUTS FOR NAMELIST SINPUTB 
500 CALL INPUTB 


0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0013 

0013 

0013 


48 


.MODIFY ANY SPECIES. KINDS, PLACE OR PLUME CARDS PER USER REQUESTS 

600 NCHG = CHNGES + CHNGEK + CHNGEP + CHNGPL 
IF(NCHG.GT.O) CALL ADDATA 

IF REQUESTED, ACCEPT NEW SURFACE TEMPERATURE INPUTS, EITHER VIA 
FORMATTED CARDS OR VIA NAMELIST SINPUTC 

700 IF(NEWTCD.OR.NEWTNL) CALL ADDTMP 

COLLECT INPUTS FOR NAMELIST $MPDB 

800 CALL MPDB 

IF REQUESTED. ACCEPT INPUTS FOR FORMATTED BODY-BODY VIEWFACTOR CARDS 
900 IF(NEWMFS) CALL ADDVFS 

DONE - NOW BUILD THE SPACE II INPUT DATA FILE 
ioOO CALL BUILD 


OF POOR QUAirTY 


STOP 
END 

SUBROUTINE CONTRL 

* * 

♦ COLLECT INPUT FOR CONTRL * 

♦ + ♦ 

» ADDITIONAL INITIALIZATION ♦ 

* ♦ 


COMMON /CNTRL/ ORBITR, PAYLOD, OUT. ED. LEAK. PLUME, 
K MCD, DIRECT, RFAS2, RFSS, REFLCT, NRFLCT, 
K NEWCON, NTAPE4, NEWTCD, NEWTNL, NEWMFS. NEWMFP, 
^ MINTMP, MAXTMP, ATCODE. R41DEP, GO, 


SSURFSOOO: 

RECEVR(25) 

NEWDAT 

KTOTAL 


COMMON/CONFIG/ SURFSCOOO), 

K ONTIME(50). 

^ SERIES. 

K JTOTAL, 

ISSURFI300) 

CHNGES. CHNGEK. CHNGEP. CHNGPL 
RATE(25.10). TAU(25,10) 

AGEORB. AGEPLD. MOUT1. 


PNTSC(50) . 
ICCODE. 
ADSURF, 
NORBPL, 


REPORT(70) 

NEWPL(!30) 

FOVANG(25) 

NNEWPL 

ISURFOOOl 


COMMON/CHANGE/ 
COMMON /RATES/ 


COMMON /ORBIT/ 
COMMON /GEOM/ 


Ml, M2, 
TIMEOO 
ALT. 

SUNM. 

XORGIN. 

ALPHA (25) . 
COMMON /INTEG/THETAL(25) . 

► DTHETA(25I. 

► DOMEGA(25). 

NPHI 

TEMP(2000) 
PLUMECI 10,25) 
CZL0CI50) 
CIDENT(50) 


TSTART 
MOUT2, 
AMBWT, AMBDIA. 


3). TSTOP(3). 

MED1, ME02, 
TSTARR. MACH, 


VA. PITCH. 
SUNK 

YORGIN. ZORGIN. 


YAW. ROLL. SUNL. 


X0(25). Y0(25). Z0(25), 
BET A (25). GAMMA (25) 

PHIL(25), THETA1(25). THETA2(25). 
PHI1(25). PHI2(25), OPHI(25), 


DS(251 


RMAX, 


NTHETA. 


COMMON /TEMPS/ 
COMMON/ PLUMES/ 


SPECMF( 10,251 
CTHETA(50: 
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CXLOC(50), CYLOC(50 
CPHK50) , 


0013 

0013 

0013 

0013 

0013 

0013 

0013 

0014 
0014 
0014 
0014 
0014 
0014 
0014 
0014 
0014 

0014 

0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 

0015 

0016 
0016 
0016 
0016 
0016 
0016 
0016 

= 0016 
0016 
0016 
0017 
0017 
0017 
.0017 
,3017 
.0017 
,0017 
0017 
0017 

0017 

0018 
0018 
0018 
0018 
0018 
0018 
0018 
0018 
0018 
0018 
0019 
0019 

,0019 

0019 

0019 


COMMON/MOLEC/ MOLWT(IO). DIAilO) 0019 

COMMON /SURFS/IDENT(300) , AREAI300) 0019 

COMMON/CHAR/ITITLE(72) , IRSPNS(80), NEWNAM(6), LTYPE(25), 0019 

+ KINDS(25), PLACEOO), SPECIE(IO), SECTOOO), 0019 

+ MATRU300), NAMEPL, CLOC(50), CTYPE(50), 0019 

+ NPLUME(25) 0020 

COMMON/CHFLAG/ CHATT, CHALT, CHVEL. CHSUN, CHDS.CHORIG. 0020 

+ CHTIM, CHAGE. CHINDX, CHWT , CHDIA, CHL0C(25). 0020 

+ CHVIEW(25) . CHRATEI25, 10) , CHTAU ( 25 , 1 0 ) . 0020 

+ CHPLUM( 10,25) , CHMFI 10,25) 0020 

COMMON/INDX/ INDXSP(25), INDXK(25), INDXP(30), INDXPLI25), 0020 

+ INDXJT, INDXKT 0020 

COMMON/NUCON/NUSECT(6,300) , NUMATL ( 6 , 300 ) , NULOC(6,50), 0020 

NUTYPE(6,50) , NUSPEC(6 , 10 ) , NUKIND ( 6 , 25 ) . 0020 

+ NUPLAC(6,30) , NUNPLM(6,25) 0020 

0021 

REAL ONTIME, MACH, MOLWT 0021 

INTEGER SURFSC, SSURFS, PNTSC, RECEVR, ITITLE, LTYPE, KINDS. 0021 

+ PLACE, SPECIE, SECT, MATRL, ATC3DE, SERIES. CIDENT, 0021 

+ CLOC, CTYPE, CHNGES. CHNGEK, CHNGEP, CHNGPL 0021 

LOGICAL ORBITR, PAYLOD, OUT, ED, LEAK, PLUME, MCD. 0021 

+ DIRECT, RFAS2, RFSS, REFLCT, NEWCON, NTAPE4, NEWTCD, 0021 

+ NEWTNL. NEWMFS, NEWMFP, MINTMP, MAXTMP, REPORT, GO. 0021 

+ NEWPL, SUNL. SUNM, SUNH, R41DEP. NEWDAT , ADSURF, 0021 

+ CHATT, CHALT. CHVEL. CHSUN, CHDS, CHORIG, CHLOC, 0021 

+ CHVIEW. CHTIM, CHRATE, CHTAU. CHAGE, CHPLUM, CHMF . 0022 

CHINDX, CHWT, CHDIA, INDXSP. INDXK, INDXP, INDXPL 0022 

0022 

’0022 

CALL CLEAR Oi?lG»>iAL PAGE iM 0022 

CALL HEADER(2) Qp poOR QUALfTV 0022 

0022 

DETERMINE IF THE OPBITER IS TO BE ACTIVATED 0022 

0022 

100 WRITEIB.BOlO) 0023 

6010 FORMATi //1X.48HD0 YOU WANT THE ORBITER CONFIGURATION ACTIVATED?/) 0023 
CALL KYBDIN(IRSPNS.3,ITYPE.IVALUE,FVALUE.IFIRST.ILAST) 0023 

ORBITR = .TRUE. 0023 

IF(IRSPNS( IFIRST) .EQ. 1HN) ORBITR= . FALSE . 0023 

0023 

SEE IF A PAYLOAD CONFIGURATION IS TO BE ADDED IN 0023 

0023 

CALL CLEAR 0023 

CALL HEADER(2) 0023 

WRITE(6.6020) 0024 

6020 F0RMATt//1X.46HD0 YOU WANT A PAYLOAD CONFIGURATION ACTIVATED?/) 0024 
CALL KYBDINdRSPNS. 3, ITYPE.IVALUE.FVALUE. IFIRST, ILAST) 0024 

IF( IRSPNSf IFIRST) .EO. 1HY) PAYLOD = .TRUE. 0024 

IF(PAYLOD) GO TO 110 0024 

IF(ORBITR) GO TO 250 0024 

CALL CLEAR 0024 

CALL HEADER! 2) 0024 

WRITE(6,6025) 0024 

6025 FORMAT!// IX. 38HIS THIS TO BE A POINT SOURCE ONLY RUN?/) 0024 

CALL KYB0IN!IRSPNS, 3. ITYPE.IVALUE.FVALUE. IFIRST, ILAST) 0025 

IFIIRSPNS! IFIRST) .NE. 1HY) GO TO !05 0025 

NEWCON s .TRUE. 0025 

GO TO 500 0025 

105 WRITE(6.6030) 50 00'?5 

6030 FORMAT (/IX, 0025 

+60H*** EITHER THE ORBITER AND/OR A PAYLOAD MUST BE SELECTED *••) 0025 


GO TO 100 
110 CALL CLEAR 
CALL HEADER(2) 

NAMEPL = 6H 
WRITE(6,6040) 

6040 FORMAT!// IX. 58HWHICH 
+U WISH:/ 

+/5X.7H1) I.MOP/5X.7H2 


u#v{(iiivAL PAGE fS 

OF POOR QUALfTY 


OF THE FOLLOWING PAYLOAD CONFIGURATIONS 


; SMTP/5X.7H3) FIVP/5X fi:-l4) pan- ( / 
DSP/IUS/5X.20H6) NEW CONFIGURATION// ) 

CALL KYBOIN! IRSPNS.O, ITYPE, IVALUE FVALUE IFIRSY IIACT» 

IF! IVALUE. EQ. 6) GO TO 120 

112 


TO 


NAME OF THE PAYLOAD (6 LETTERS 


MAX 


IFdVALUE.NE. 1) GO 
NAMEPL = 6H LMOP 
SERIES = 1000 
GO TO 250 

112 IFdVALUE.NE. 2) GO TO 114 
NAMEPL = 6H SMTP 
SERIES = 2000 
GO TO 250 

114 IFdVALUE.NE. 3) GO TO 116 
NAMEPL s 6H FIVP 
SERIES = 3000 
GO TO 250 

116 IFdVALUE.NE. 4) GO TO 118 
NAMEPL = 6H P801 
SERIES = 1000 
GO TO 250 

118 IFdVALUE.NE. 5) GO TO 120 
NAMEPL s 6HDSPIUS 
SERIES = 1000 
GO TO 250 
120 CALL CLEAR 
CALL HEADER(2) 

WRITEie. 60501 

605D FORMAT (// IX . 49HWHAT IS THF 

^ All * -r;:7nifnM r i o I nt mmitic ur i nt KA T LUAU I h ' F ^ 

IFINCHAR.GT.6) go to 120 
IPAD s 6 - NCHAR 
IFIIPAD.EQ.O) go to 140 
DO 130 1=1, IPAD 
130 NEWNAMd) = 1H 
140 IPAD1 = IPAD 1 
II = 0 

DO 150 I=IPA01.6 
II = II * 1 

150 NEWNAMd) = IRSPNSdFIRST II - n 
160 CALL CLEAR 
CALL HEADER(2) 

WRITEI6.6055) 

6055 FORMAT (// IX . 43HIN WHAT RANGE ARE THE PAYLOAD NODE NUMBFRS'^// 

Z: 2000-2999/5X^^2S3rMi?^"' 

Call ky bo in(irspns,o,itype.ivalue, rvalue iia<nT) 

DETERMINE HOW NEW CONFIGURATION DATA WILL BE INPUT TO SPACE 

200 CALL CLEAR 
CALL HEADER! 21 


51 


0025 

0025 

0025 

0026 
0026 

DO Y00026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 

0027 

0028 
0028 
0028 
0028 
0028 
0028 
0026 
0028 
0028 
0028 
0029 
0029 

)? /I0029 
0029 
0029 
0029 
0029 
0029 
0029 

0029 

0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 

0030 

0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 


PAYLOAD CONFIGURATION BE INPUT?// 


WRITE(6,6060) 

6060 FORMAT (//1X.40HHOW WILL 
+5X, 13H1 ) VIA TAPE 4/ 

+5X.32H2) VIA USER INPUT (THIS SESSION)/) 

IFM ''VALUE, IFIRST.ILAST) 

IF ( IVALUE.LE.O/ .OR. ( IVALUE.'^,E.3) ) GO TO 200 
ir(IVALUE.EQ.I) NTAPE4 = .true. 

IF( IVALUE.EQ.2) NEWCON = .TRUE. 

IF( IVALUE.EQ.2) ADSURF = .TRUE. ^ 

cj?!QiW-L p;gs 13 

SELECT SURFACE SOURCES DESIRED OF POOR QUALfTY 

250 CALL CLEAR 
CALL HEADER(2) 

WFaTE(6,6070) 

FORMAT (// IX, 36HARE SURFACE SOURCES TO BE 
CALL_KYBDIN(IRSPNS,3, ITYPE.IVALUE.F'/ALUE 

IF( IRSPNSi I fIrsT) -EQ. 1HN) GO TO COO 
IF( .NOT.ORBITR) go to 270 
CALL CLEAR 
CALL HEADER(2) 

WRITE(6,6080) 

F0RMAT(//1X,31HSELECT 
+5X, 18H1 ) 

+5X,24H2) 

+5X.21H3) 


6070 


255 

260 


ACTIVATED?/) 

IFIRST,ILAST 


6080 


FROM THE FOLLOWING LIST:// 

OUTGASSING ONLY/ 

EARLY DESORPTION ONLY/ 

CABIN LEAKAGE ONLY/ 

+5X.32H4) OUTGASSING + EARLY DESORPTION/ 

+5X,29H5) OUTGASSING + CABIN LEAKAGE/ 

DESORPTION + CABIN LEAKAGE/ 

OUTGASSING + EARLY DESORPTION + CABIN LEAKAGE//) 

-LVALUE, FVALUE,IFIRST,ILAST)^^ 


IVALUE.GE.8 
: IVALUE.EQ.4i 
, TRUE. 

: IVALUE.EQ.41 
TRUE. 

I'/ALUE.EQ.5) 

.TRUE. 


GO 
.OR. 


TO 255 
IVALUE.EQ.5) 


.OR. ( IVALUE .EQ.6) .OR. 
•OR. ( IVALUE. EO. 6) .OR. 


IF( ( IVALUE. LE.O) .OR. 

IF( ( IVALUE. EQ. 1 ) .OR. 

+(IVALUE.EQ.7) )OUT = 

. IF( ( IVALUE.EQ.2) .OR. 

+(IVALUE.EQ.7))ED = 

IF( ( IVALUE. EQ. 3) .OR. 

+(TVALUE.E0.7) )LEAK = 

GO TO 300 
270 CALL CLEAR 
CALL HEADERI2) 

WRITE(6,6085) 

6085 F0RMAT(//1X,31HSELECT FROM THE FOLLOWING LIST-// 
■►5X, 18H1 ) OUTGASSING ONLY/ ' 

■^5X,24H2) EARLY DESORPTION ONLY/ 

+5X,34H3) OUTGASSING AND EARLY DESORPTION//) 

° ; ^^VPE , I VALUE , FVALUE , I FIRST , I 
iry ( ivMLuc.Lt.ui .uR. i rvALUh.GE.4) ) GO TO 255 


OR. 


-AST 


IF( ( IVALUE. EQ. 1 ) .OR 
IF( I IVALUE.EQ.2) .OR 


T \/ A I nc rn o 

A V M 1.UL. . C V « o 

IVALUE. EQ. 3 


OUT s .TRUE. 
ED = .TRUE. 


SEE IF MULTIPLE REFLECTIONS ARE DESIRED 

300 CALL CLEAR 

CALL HEADER(2) 

WRITE(6,6090) 

6090 FORMAT!// IX. 43HDO YOU WANT MULTIPLE REFLECTIONS EVALUATED?/ 
CALL KYBDIN! IRSPNS, 3 , ITYPE , IVALUE , FVALUE IFIRST ILAST) 
IF(IRSPNS(IFIRST).NE.1HY) GO TO 
REFLCT = .TRUE. 

310 WRITE(6,6100) 52 


0031 

0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 

0032 

0033 
0033 
0033 
0033 
0033 
0033 
0033 
0033 
0033 

0033 

0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 

0034 

0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 

0035 

0036 
0036 
0036 
0036 
0036 
0036 
nn.?R 

0036 

0036 

0036 

0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 

0037 

0038 


6100 FORMAT!// IX, 33HHOW MANY REFLECTIONS ARE DESIRED?/) 
CALL KYBDINdRSPNS.O. ITYPE, I VALUE, FVALUE.IFIRST.I LAST 
IF( ( IVALUE.LE.O) .OR. (IVALUE.GT, 10) ) GO TO 310 
NRFLCT = IVALUE 


SEE IF ORBITER POINT SOURCES (ENGINES/VENTS) ARE TO BE ACTIVATED 

400 IF( .NOT.ORBITR) GO TO 500 
CALL CLEAR 
CALL HEADERI2) 

WRITE(6,61 10) 

6110 F0RMAT(//1X,51HD0 YOU WANT ANY ORBITER ENGINES OR VENTS 
+/) 

CALL KYBDIN! IRSPNS,3, ITYPE, IVALUE,FVALUE, IFIRST, ILAST) 
IF(IRSPNSdFIRST).NE.IHY) GO TO 500 
PLUME = .TRUE. 

SEE IF NEW POINT SOURCES ARE TO BE INPUT VIA NEW 


500 CALL CLEAR 

CALL HEADER(2) 

WRITE(6,6130) 

6130 FORMAT! //IX, 39HD0 YOU WANT TO INPUT NEW POINT SOURCES?/) 
CALL KYBDIN! IRSPNS, 3 , ITYPE , IVALUE , FVALUE , IFIRST , ILAST ) 
IF! IRSPNS! IFIRST) .NE. 1HY) GC TO 600 
NEWCON s .TRUE. 

510 WRITE!6,6140) 

6140 FORMAT! / IX , 41HH0W MANY NEW POINT SOURCES WILL THERE BE?/ 
CALL KYBDIN! IRSPNS , 0 , ITYPE . IVALUE , FVALUE , IF IRST , ILAST ) 
IF!IVALUE.LE.0) GO TO 510 
IF!IVALUE.GT.50) GO TO 510 
NNEWPL = IVALUE 

DETERMINE TYPE OF CONTAMINATION ANALYSIS DESIRED 


0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 

0038 

0039 
0039 

ACTIVATED70039 
0039 
0039 
0039 
0039 
0039 

CONFIGURATION CARDS 0039 

0039 


OF ANALYSIS DESIRED:/ 


600 CALL CLEAR 

CALL HEADER!2) 

WRITE!6,6150) 

6150 FORMAT!//1X,35HSELECT TYPE!S! 

+1X,18H!TYPE 0 WHEN DONE)// 

+5X,50H1) MASS COLUMN DENSITY !MCD) ALONG A LINE OF SIGHT/ 
+5X,55H2) DIRECT FLUX AND/OR DEPOSITION ON A RECEIVING SURFACE/ 
+5X,51H3) RETURN FLUX/DEPOSITION DUE TO AMBIENT SCATTERING) 

IF! ! .NOT.PLUME) .OR. !NNEWPL.EQ.O) ) GO TO 610 
WRITE!6,6160) 

F0RMAT!5X,48H4) RETURN FLUX/DEPOSITION DUE TO SELF SCATTERING//) 
CALL KYBDIN ! IRSPNS, 0,1 TYPE, I VALUE, FVALUE, IF IRST, ILAST) 

NHIVAL = 3 


6160 

610 


T c / m I u/ir 
\ r 


r\n 

ur\ 


( NNEWPL . GT . 0 ) ) NHIVAL = 4 
IF( ! IVALUE j_T.O) .OR. ! I VALUE . GT . NHIVAL 
IF!IVALUE.EQ. 1 ) MCD = .TRUE. 

EQ.2) DIRECT = .TRUE. 


GO TO 600 


IF \ IVALUE 


IF!IVALUE.EQ.3) RFAS2 .TRUE. 

IF!!VALUE.EQ.4) RFSS = .TRUE. 

IF!IVALUE.NE.0) GO TO 610 

NEED ADDITIONAL INPUT FOR BGK PLUME SELF SCATTERING MODEL 


IF! .NOT. RFSS) 
650 CALL CLEAR 
CALL HEADER!2 
WRITE!6,6170) 


GO TO 700 


53 


ORIGINAL PAGE 13 
OF POOR QUALITY 


0040 

0040 

0040 

0040 

0040 

0040 

0040 

0040 

0040 

0040 

0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 

0041 

0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 

0042 
J043 

0043 
0043 
0043 
0043 
0043 
0043 
0043 
0043 

0043 

0044 
0044 
0044 


PARAMETERS - 

IF(FVu5E'u'?^rG6^o'650''''“^"^’”"^ 

MACH = FVALUE 
WRITE 


660 

6180 


6 , 6180 ) 

FORMAT (//5X , 31HTSTARR (IN DEGREES CENT IGRADE ) '’// ) 

in ^ LVALUE, FVALUE, IFIRST, ILAST: 

IF( FVALUE. LE, -273. ) GO TO 660 
TSTARR = FVALUE 

DETERMINE HOW TAPE 10 THERMAL DATA IS TO BE USED 


700 CALL CLEAR 

CALL HEADER (2) 
WRITE(6,6190) 

6190 FORMAT!// IX, 45HWHICH 
+1X.37HTAPE 10 SHOULD 


OF THE FOLLOWING THERMAL 
BE USED FOR THIS CASE:// 


PROFILES FROM / 


OBIQIWAL PAG£ 

OF POOR QUALITY 


+5X.20H1) COLUMN 1 (MAXTMP)/ 

+5X,20H2) COLUMN 2 (MINTMP)/ 

+5X.22H3) COLUMN 3 (ATCODE=1)/ 

+5X.22H3) COLUMN 4 (ATC0DE=2)/ 

+5X,22H5) COLUMN 5 (ATC0DE=3)/ 

+5X,22H6) COLUMN 6 (ATC0DE=4)/ 

+5X,22H7) COLUMN 7 ( ATCODE=5 ) // ) 

CALL KYBDIN ( I RSPNS , 0 , 1 TYPE , I VALUE FVALUE IFIR<^T Iia<;ti 
IF ' I ‘rflUE- LE- 0 1 .OR. i IVALUE SE . 8 ) i qS ^o’ 7M ^ ' 

IF( IVALUE .GE . 3 ) ATCODE = IVALUE - 2 
IF( IVALUE.EQ. 1 ) MAXTMP r .TRUE 
IF( IVALUE. EQ. 2) MINTMP = .TRUE. 

DETERMINE IF THERMAL DATA ARE TO BE INPUT VIA NAMELIST OR CARDS 

750 CALL CLEAR 

CALL HEADER (2) 

WRITE(6,6200) 

^F(IRS^Ss^F^Rl?^'NE^•!;^^G™ 

760 WRITE(6,6210) 

6210 FORMAT! // IX , 16HSHOULD INPUT BE-// 

+5X,31H1) VIA NAMEl 1ST (NEWTNL OPTION)/ 

•►5X,38H2) VIA FORMATTED CARDS (NEWTCD OPTION)//) 

CALL KYBDIN! IRSPNS, 0 , ITYPE , I VALUE , FVALUE IFIRST ILAST) 
IF((IVALUE.LE.O).OR.!lVALUE.GE.3)i gHo 760 
IFdVALUE.EQ. 1 ) NEWTNL = .TRUE. 

IF! IVALUE.EQ. 2) NEWTCD = .TRUE. 

nc^Pnn*)*MT^ooI^^ USERS CASE SHOULD RESULT IN THE GENERATION 
OF A POINT-BODY TAPE 13 VIEWFACTOR FILE (NEWMFP OPTION) 

800 IF! .NOT.PAYLOO) GO TO 850 
CALL CLEAR 
CALL HEADER! 2) 

WRITE!6,6220) 

6220 FORMAT! // IX , 47HD0 YOU WANT THIS RUN TO GENERATE A TAPF 1 -1 fpom/ 
MX.40HTHE ORBITER TAPE 14 AND PAYLOAD tSe i^!//) ^ 

CALL KYBDIN! IRSPNS, 3, ITYPE , IVALUE FVALUE IFIR'IT TIA<;ti 
IFMRSPNSIIFIRSTI.EO.IHYI NEWMFP = ?Ru|: ' 

BEGIN SELECTION PROCESS FOR SPAC 54 ITPUT REPORT OPTIONS 


// 0044 
0044 
0044 
0044 
0044 
0044 

0044 

0045 
0045 
0045 
0045 
0045 
0045 
0045 
0045 
0045 

0045 

0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 

0046 

0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 

0047 

0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 

0048 

0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 

0049 

0050 
0050 
0050 
0050 
0050 


850 CONTINUE 

TO BE CONTINUED ♦*=»***♦*♦»*♦ 
IF(ORBITR) CALL ORBTR 
IF(ORBITR) CALL PLUMEX 
IF ( .NOT. PLUME) KTOTAL=0 
IF(NNEWPL.GT.O) KTOTAL = KTOTAL + NNEWPL 
CALL MATLX PAGE 

U 2 = Jo QUALtTY 

M0UT1 = 1 
M0UT2 = 2 
MED1 = 3 
MED2 = 6 

IF(.NOT.OUT) Ml = 3 

IF( .NOT. (PLUME. OR ' NNEWPL . GT . 0 )) ) M2 = 6 

IF{ (M2.EQ.6) .AND. ( .NOT.ED) .AND. ( .NOT.LEAK) ) M2 = 2 

RE turn 

END 

SUBROUTINE INPUTA 

* ♦ 

♦ COL L E CT DATA FOR INPUTA ♦ 

* » 

*3*c3*c:<e3K3*c:|c5*e>^:4c:*c^3|tijE:(C3je^a^*:|c:4c:|c*3*:i*cjtt*)#c3*ca*c3|c3#r*:*i:*ts*e*j*e**3fc:*cjK*:ft3fe3jej#e:fe;4t5»c3^ 


COMMON /CNTRL/ ORBITR, PAYLOD, 


MCD, DIRECT, 


OUT, 
RFAS2, 


ED, LEAK, PLUME, 

RFSS, REFLCT, NRFLCT, 

NEWCON, NTAPE4, NEWTCD, NEWTNL, NEWMFS, NEWMFP, 

MINTMP, MAXTMP, ATCODE, R41DEP, GO, REPORT(70 

COMMON/CONFIG/ SURFSC(300), 5SURFS(300), PNTSC(50) 

ONTIME(50), RECEVR(25), ICCODE, 

SERIES, NEWDAT, ADSURF, 

JTOTAL, KTOTAL, NORBPL, 

ISSURF(300) 


NEWPL (50) 
F0VANG(25) 
NNEWPL 
ISURF(300) 


COMMON/CHANGE/ 

CHNGES, 

CHNGEK, 

CHNGEP, 

CHNGPL 



COMMON 

/RATES/ 

RATE(25, 

10), TAU 

K25, 10 ) 

, TSTART 

(3). TSTOP(3). 

+ 


AGEORB, 

AGEPLD, 

MOUT 1 , 

MOUT2, 

MED1 , 

MED2, 

+ 


Ml , 

M2, 

AMBWT, 

AMBDIA, 

TSTARR, 

MACH, 

+ 


TIMEOO 






COMMON 

/ORBIT/ 

ALT, 

VA, 

PITCH, 

YAW, 

ROLL, 

SUNL, 

+ 


SUNM, 

SUNH 





COMMON 

/GEOM/ 

XORGIN, 

YORGIN, 

ZORGIN, 

X0(25) , 

Y0(25) , 

Z0(25) , 

4- 


ALPHA(25 

). 

BETA(25; 

1. 

GAMMA (25 

) 


PHIL(25 

PHIK25 

DS(25 


SPECMF( 10,25 
CTHETA(50 


+ DTHETA(25), 

+ DOMEGA(25), 

NPHI 

COMMON /TEMPS/ TEMP (2000) 
COMMON/PLUMES/ PLUMEC(10,25 
+ CZLOC(50 

+ CIDENT(50 

COMMON/MOLEC/ MOLWT(IO), DIA(10 
COMMON /SURFS/IDENT(300 
COMMON/CHAR/ITITLE(72) , 

+ KINDS(25), 

+ MATRLOOO), 

+ NPLUME(25) 

COMMON/CHFLAG/ CHATT, CHALl 55 CHVEL, 


THETAK25) , 
PHI2(25) , 
RMAX, 


THETA2(25) , 
DPHK25) , 
NTHETA, 


CXLOC(50), CYLOC(50) 
CPHK50) , 


, AREA(300) 
IRSPNSOO) , 
PLACE(30) , 
NAMEPL, 


NEWNAM( 6 ) 

SPECIE(IO) 

CLOC(50) 


LTYPE(25) 

SECT(300) 

CTYPE(50) 


CHSUN, CHDS.CHORIG 


005 ^ 

0050 

0050 

0050 

0050 

0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 

0051 

0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 

0052 

0053 
0053 

= 0053 
0053 
0053 
0053 
0053 

0053 
,0053 
,0053 
,0054 
,0054 

0054 
0054 
0054 
0054 
0054 
0054 
0054 

0054 

0055 
0055 
0055 
0055 
0055 
0055 
0055 

,0055 

0055 

0055 

0056 
0056 
0056 
0056 
0056 
0056 
0056 


CHTIM, CHAGE, CHINDX, CHWT, CHDIA, CHL0C(25 
+ CHVIEW(25), CHRATE(25. 10), CHTAU ( 25 , 10 ) . 

+ CHPLUMI 10,25) , CHMF(10,25) 

COMMON/INDX/ INDXSP(25), INDXK(25), INDXPOO), INDXPL(25) 

+ INDXJT, INDXKT 

COMMON/NUCON/NUSECT(6 , 300 ) , NUMATL ( 6 , 300 ) , NULOC(6,50) 

+ NUTYPE(6,50) , NU3PEC ( 6 , 1 0 ) , NUKINDf 6 , 25 ) ! 

+ NUPLAC(6,30) , NUNPLM(6,25) 


REAL ONTIME, MACH, MOLWT 
INTEGER SURFSC, SSURFS, PNTSC, RECEVR, 

+ PLACE, SPECIE, SECT, MATRL, 

+ CLOC, CTYPE, CHNGES, CHNGEK, 

LOGICAL ORBITR, PAYLOD, OUT, ED 
+ DIRECT, RFAS2, RFSS, REFLCT] 

+ NEWTNL, NEWMFS, NEWMFP, MINTMP, 

+ NEWPL, SUNL, SUNM, SUNH, 

+ CHATT, CHALT, CHVEL , CHSUN, 

CHVIEW, CHTIM, CHRATE, CHTAU, 
+ CHINDX, CHWT, CHDIA, INDXSP, 


ITITLE, 

ATCODE, 

CHNGEP, 

LEAK, 

NEWCON, 

MAXTMP, 

R41DEP, 

CHDS, 

CHAGE, 

INDXK, 


LTYPE, 

SERIES, 

CHNGPL 

PLUME, 

NTAPE4, 

REPORT, 

NEWDAT. 

CHORIG, 

CHPLUM, 

INDXP, 


KINDS, 

CIDENT, 

MCD, 

NEWTCD, 

GO, 

ADSURF, 

CHLOC, 

CHMF, 

INDXPL 


0056 

0056 

0056 

0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 

0057 

0058 
0058 
0058 
0056 
0058 
0058 
0058 
0058 


AND/OR A PAYLOAD HAVE BEEN ACTIVATED, SEE IF THE 
DESIRES TO ZERO OUT ANY SURFACES. IF MULTIPLE REFLECTIONS HAVE 
FLAGGED, SEE IF ANY NODES ARE TO BE ELIMINATED AS SECOND SURFACE 

IF( .NOT. (ORBITR. OR. PAYLOD) )G0 TO 500 
CALL CLEAR 
CALL HEADER(3) 

WRITE(6,6010) 

6010 FORMAT (//1X,33HD0 YOU WANT ANY SURFACES DELETED'?/) 

?ri'tn^nS5!')'‘^'^^^^^’2’^^^P^’^''A‘-^^-''VALUE,IFIRST,ILAST) 

IF(IRSPNS( IFIRST) .NE. 1HY) GO TO 250 


PROVIDE OPTION. TO EITHER 

1) INPUT SEQUENCE NUMBERS DIRECTLY 

2) REVIEW ALL NODES, 1 SCREENFUL AT A 


TIME, THEN BRANCH TO 1 ) 


CALL :lear 
CALL HEADER(3) 

WRITE(6,6020) 

6020 FORMAT (//1X,46HY0U HAVE TWO OPTIONS FOR ZEROING OUT SURFACES’ 

SEQUENCE NUMBER (NOT THE NODE NUMBER 
+8X,49HOF THE SURFACE(S) TO BE ELIMINATED, 

+8X,53HTHE NUMBER(S) DIRECTLY, TERMINATING 
+5X.52H2) IF YOU KNOW THE NODE NUMBER, BUT 
+8X,51HNUMB£R, YOU CAN ELECT TO REVIEW ALL 
+8X,48HSEQUENCE NUMBERS, 1 SCREENFUL AT A 


YOU CAN INPUT/ 

THE LIST WITH "0*7/ 
NOT THE SEQUENCE/ 
NODES AND THEIR/ 
TIME. IF YOU/ 


+8X,48HSELECT THIS OPTION, REVIEW THE LIST AND JOT DOWN/ 
+8X,48HTHE APPROPRIATE SEQUENCE NUMBERS. AT THE END OF/ 

. REVIEW, THE PROGRAM WILL PROMPT YOU AS IN 1)/// 

1 10 WRITE(6,6030) 

6030 FORMAT( 1X,36HPLEASE SELECT EITHER OPTION 1) OR 2)/) 

CALL KYBDINdRSPNS, 0,1 TYPE, I VALUE, FVALUE, I FIRST, ILAST) 

IF( ( IVALUE.LE.Ol .OR. ( IVALUE.GE.3) ) GO TO 110 
IF( IVALUE.EQ. 1 ) GO TO 200 


REVIEW CONFIGURATION 

CALL CLEAR 
WRITE(6,6040) 
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=====0058 

0058 
USER 0059 
BEEN 0059 

SOUR0059 

0059 
0059 
0059 
0059 
0059 
0059 

0059 

0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
3060 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0061 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 


// 

)/ 


6040 FORMAK 1X,51H^ REVIEW CONFIGURATION - PRESS RETURN TO CONTINUE 
+5X , 5HSEQ # . 5X , 4HN0DE , 6X , 5HPLACE , 6X , 4HMATL , 7X , 4HAREA/ 

+5X , 5H , 5X , 4H , 5X , 6H 5X , 6H , 5X , 7H ) 

NEXT = 1 
120 LCOUNT = 1 

130 WRITE(6,6050)NEXT,SURFSC(NEXT) .SECT (NEXT) ,MATRL( NEXT) , 
+AREA(NEXT) 

6050 F0RMAT(6X,I3,6X,I4,5X,A6,5X,A6,5X,F7. 1 ) 

NEXT = NEXT + 1 
LCOUNT = LCOUNT + 1 
IFINEXT.GT. JTOTAL) GO TO 150 
IFILCOUNT.GT.20) GO TO 150 
GO TO 130 

150 CALL KYBDIN(IRSPNS,5,ITYPE,IVALUE,FVALUE,IFIRST,ILAST) 
IF(NEXT.GT. JTOTAL) GO TO 200 
WRITE(6,6040) 

GO TO 120 

PROMPT FOR SURFACES TO BE ZEROED 

200 CALL CLEAR 

CALL HEADER! 3) 

WRITE(6,6055) 

6055 FORMAT(//1X,39HINPUT SEQUENCE NUMBER(S) OF NODES TO BE/ 
+29HELIMINATED (TYPE 0 WHEN DONE)//) 

N = 1 

210 CALL KYBDINdRSPNS.O.ITYPE.IVALUE.FVALUE.IFIRST.ILAST) 
IF((IVALUE.LT.0).OR.(IVALUE.GT.300)) CALL lERROR 
IF( IVALUE.EQ.O) GO TO 250 
ISURF(N) = IVALUE 
• N = N + 1 
GO TO 210 

IF MULTIPLE REFLECTIONS HAVE BEEN FLAGGED, USE SAME APPROACH AS 
ABOVE FOR ZEROING OUT ANY SURFACES NOT DESIRED AS REFLECTORS 

250 IF( .NOT.REFLCT) GO TO 500 
CALL CLEAR 
CALL HEADER(3) 

WRITE(6,6060) 

6060 F0RMAT(//1X,41HD0 YOU WANT ANY SURFACES TO BE DELETED AS/ 
+1X.23HSECOND SURFACE SOURCES?/) 

CALL KYBDIN(IRSPNS,3,ITYPE,IVALUE,FVALUE,IFIRST, ILAST) 

IF( IRSPNS( IFIRST) .NE. 1HY) GO TO 500 

PROVIDE OPTION TO EITHER 

1) INPUT SEQUENCE NUMBERS DIRECTLY 

2) REVIEW ALL NODES, 1 SCREENFUL AT A TIME, THEN BRANCH TO 1-) 

CALL CLEAR 
CALL HEADER(3) 

WRITE(6,6020) 

310 WRITE(6,6030) 

CALL KYBDIN( IRSPNS.O, ITYPE, I VALUE, FVALUE, IFIRST, ILAST) 

IF( ( IVALUE. LE.O) .OR. ( IVALUE. GE. 3) ) GO TO 310 
IF( IVALUE. EQ. 1 ) GO TO 400 


REVIEW CONFIGURATION 

CALL CLEAR 
WRITE(6,6040) 
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i QUALITY 

NEaT = 1 

320 LCOUNT = 1 

330 WRITE(6,6050)NEXT,SURFSC(NEXT) .SECT (NEXT) ,MATRL( NEXT) , 
+AREA(NBXT) 

NEXT = next + 1 
LCOUNT = LCOUNT + 1 
IF(NEXT.GT. JTOTAL) GO TO 350 
IF(LCOUNT.GT.20) GO TO 350 
GO TO 330 

350 CALL KYBDIN(IRSPNS,5.ITYPE,IVALUE,FVALUE,IFIRST,ILAST) 
IF(NEXT.GT.JTOTAL) GO TO 400 
WRITE(6,6040) 

GO TO 320 

PROMPT FOR SURFACES TO BE ZEROED 

400 CALL CLEAR 

CALL HEADER(3) 

WRITE(6,6070) 

6070 FORMAT(//1X,39HINPUT SEQUENCE NUMBER(S) OF NODES TO BE/ 
+29HELIMINATED (TYPE 0 WHEN DONE)//) 

N s 1 

410 CALL KVBDINdRSPNS.O.ITYPE.IVALUE.FVALUE.IFIRST.ILAST) 

1F( ( IVALUE.lt. 0) .OR. ( IVALUE.GT .300) ) CALL lERROR 
IF(IVALUE.EQ.O) GO TO 500 
ISSURF(N) = IVALUE 
N = N + 1 
GO TO 410 

IF THE USER WANTS ORBITER OR OTHER (NEW) PLUMES ACTIVATED, 
PROMPT FOR THEIR NODE NUMBERS AND ONTIMES. PROVIDE OPTION 
TO REVIEW ORBITER POINT SOURCES. 


500 


0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 

0070 

0071 
0071 
0071 
0071 
0071 
0071 
0071 
0071 
0071 

0071 

0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 

0072 

0073 
0073 
0073 


IF( ( .NOT.PLUME) .AND.(NNEWPL.EQ.O) ) GO TO 800 
N = 1 

IF ( .NOT.PLUME) GO TO 700 
CALL CLEAR 
CALL HEADER(3) 

WRITE(6,6075) 

6075 FORMAT(/9X,43H*** SELECT ACTIVE ORBITER POINT SOURCES ***/) 
WRITE(6,6080) 

6080 FORMAT ( //I X.49HY0U HAVE TWO OPTIONS FOR ACTIVATING ORBITER POINT/ 0073 
+1X,8HSOURCES://5X,44H1 ) IF YOU KNOW THE NODE NUMBER OF THE ENGINE/0073 
+8X.37HOR VENT YOU WANT TO ACTIVATE, YOU CAN/ 0073 

+8X.36HSIMPLY INPUT THE NODE NUMBER AND THE/ 0073 

+8X,28HDESIRED ON TIME (IN SECONDS)// 

+5X.51H2) IF YOU DON'T KNOW THE NODE NUMBER, YOU CAN ELECT/ 

+8X.47HTO REVIEW ALL ORBITER PREDEFINED POINT SOURCES,/ 

+8X,42HdOT DOWN THE DESIRED NODE NUMBERS AND THEN/ 

+8X, 18HBRANCH TO OPTION 1///) 

510 WRITE(6,6030) 

CALL KYBDIN( IRSPNS.O, ITYPE, IVALUE.FVALUE, IFIRST, ILAST; 

IF( ( IVALUE. LE.O) .OR. ( IVALUE. GE. 3) ) GO TO 510 
IFdVALUE.EQ. 1) GO TO 600 


REVIEW PREDEFINED ORBITER ENGINES AND VENTS 
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0073 

0073 

0073 

0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 

0074 

0075 


CALL CLEAR 
WRITE(6,6090) 

6090 FORMAT( 1X.51H* REVIEW ENGINES/VENTS - PRESS RETURN TO CONTINUE */ 0075 
+2X,4HN0DE,4X.3HL0C,3X,4HTYPE,7X, 1HX.9X, 1HY.8X, 1HZ.6X.5HTHETA, 0075 


+6X.3HPHI/2X,4H----,2X,6H--- 
,3X,6H ,3X,6H- 


.2X.6H--- 

--,3X,6H- 


,3X,6H- 

--) 


,3X, 


NEXT = 1 
520 LCOUNT = 1 

530 WRITE (6, 6 100) Cl DENT (NEXT) ,CLOC(NEXT) .CTYPE(NEXT) CXLOC(NEXT) 

LCOUNT = LCOUNT 1 
IF(NEXT.GT.KTOTAL) GO TO 550 
IF(LCOUNT.GT.20) go to 550 
GO TO 530 

WRITE(6,60S0) 

GO TO 520 

PROMPT FOR ORBITER ENGINES/VENTS TO BE ACTIVATED 

600 CALL CLEAR 
CALL HEADER(3) 

610 WRITE(6,6110) 

PNTSC(N)'^^IVALUE°^■°'^■‘^'^^‘‘^^’° 

620 WRITE(6.6120) 

6120 FORMAT (/ IX, 39HINPUT POINT SOURCE ON TIME (IN SECONDS)/) 

ONTIME(N) = FVALUE 
N = N + 1 
GO TO 610 

PROMPT FOR NEW PLUME INPUTS, IF REQUESTED BACK IN CONTRL 

700 NORBPL = N - 1 

IF(NNEWPL.EQ.O) GO TO 800 
CALL CLEAR 
CALL HEADER(3) 

WRITE(6,6130) 

SOURCE INPUTS -/) 

710 WRi TE ( 6 , 6 1 40 ) 

VENT YOU/ 

PNTSC(N)'^^IVALUE°^'°’^■*^^ 

720 WRITE(6,6150) 

6150 FORMAT(/1X,39HINPUT POINT SOURCE ON TIME (IN SECONDS)/) 

ONTIME(N) = FVALUE 
N = N + 1 

IF(N.GT. (NORBPL + NNEWPD) GO TO 800 
GO TO 710 

DETERMINE RECEIVING SURFACES DESIRED FOR ANALYSIS. IF DIRECT 
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0075 

0075 

0075 

0075 

0075 

0075 

0075 

0076 
0076 
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0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
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0078 
0078 
0078 
0078 
0078 
0078 
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0078 
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0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0079 

0079 

0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0081 
0081 
0081 
0081 
0081 


FLUX ANALYSIS WAS REQUESTED, SEE IF USER WANTS TO LIMIT FIELD 
OF VIEW OF RECEIVERS. 

800 KTOTAL = N - 1 
CALL CLEAR 
CALL HEADER! 3) 

N = 1 

WRITEI6.6160) 

6160 F0RMAT(//1X,47HPLEASE ENTER RECEIVING SURFACE NODE NUMBERS (UP/ 
+1X.27HTO 25). ENTER 0 WHEN DONE:/) 

810 WRITE(6,6170) 

6170 FORMAT (5X.6HNODE? ) 

820 CALL KYBDINdRSPNS.O.ITYPE.IVALUE.FVALUE.IFIRST.ILAST) 

IF! (IVALUE.lt. 0) .OR. (IVALUE.GE. 5000' ) GO TO 820 
IF(IVALUE.EQ.O) GO TO 900 
RECEVR(N) = IVALUE 
N = N + 1 
GO TO 810 

900 IF! .NOT. DIRECT) GO TO 999 
CALL CLEAR 
CALL HEADER! 3) 

WRITE!6,6180) 

6180 F0RMAT!//1X,43HD0 YOU WANT THE FIELD OF VIEW OF ANY OF THE/ 

+1X.55HRECEIVERS LIMITED TO LESS THAN 90 DEGREES (HALF ANGLE)?/) 
CALL KYBDIN! IRSPNS , 3 . ITYPE . IVALUE , FVALUE . I F IRST . ILAST ) 
IF!IRSPNS!IFIRST).NE.1HY) GO TO 999 
910 WRITE!6,6190) 

6190 FORMAT!/1X,37HINPUT RECEIVER NODE NUMBER (0 TO END)/) 

920 CALL KYBDIN! IRSPNS. 0, ITYPE, IVALUE, FVALUE IFIRST . ILAST ) 
IF(IVALUE.EQ.O) GO TO 999 

IFMIVALUE.LE.O) .OR. (IVALUE. GE. 5000) ) GO TO 920 
DO 930 d=1,25 

IF!IVALUE.EQ.RECEVR!d) ) GO TO 940 
930 CONTINUE 

WRITE!6,6200) 

6200 FORMAT! IX, 45H»**** THAT NODE DOES NOT CORRESPOND TO ANY OF/ 

+ 7X.28HTHE RECEIVERS YOU IDENTIFIED) 

GO TO 910 
940 WRITE!6,6210) 

6210 FORMAT! IX. 37HINPUT DESIRED FOV LIMITING HALF ANGLE) 

950 CALL KYBDIN! IRSPNS, 1 , ITYPE, IVALUE, FVALUE, IFIRST. ILAST) 

IF! (FVALUE. LE.O. ) .OR. (FVALUE. GT. 180. ) ) GO TO 950 
FOVANG(d) = FVALUE 
GO TO 910 

ALL DONE WITH NAMELIST $INPUT DATA COLLECTIONS ***>»* 

999 RETURN 
END 

SUBROUTINE INPUTB 


♦ * 

* COLLECT DATA FOR INPUTB ♦ 

* * 


RETURN 

END 

SUBROUTINE MPDB 
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^ ^ ^ ^ ^ ^ 


COMMON /CNTRL/ ORBITR, PAYLOD, OUT, 
+ MCD, DIRECT, RFAS2, 
+ NEWCON, NTAPE4, NEWTCD, 
+ MINTMP, MAXTMP, ATCODE, 
COMMON/CONFIG/ SURFSCOOO), SSURFSI300 


+ 

+ 

+ 

+ 


RECEVR(25) , 
NEWDAT, 
KTOTAL, 


COMMON/CHANGE/ 
COMMON /RATES/ 


0NT1ME(50) , 

SERIES, 

JTOTAL, 

ISSURFOOO) 

CHNGES, CHNGEK, CHNGEP, 
RATE(25,10), TAU(25,10) 
AGEORB, AGEPLD, 

M2, 


ED, LEAK, 

RFSS, REFLCT, 
NEWTNL, NEWMFS, 
R41DEP, GO, 
PNTSC(50: 


ICCODE 

ADSURF 

NORBPL 


PLUME, 

NRFLCT, 

NEWMFP, 

REPORTI70) 

NEWPL(50) 

F0VANG(25) 

NNEWPL 

ISURFOOO) 


COMMON 

i- 

COMMON 


/ORBIT/ 

/GEOM/ 


VA, PITCH, 
SUNH 

YORGIN, ZORGIN, 
BETAI25 
PHIL(25) 
PHIK25) 
DS(25) 


Ml , 

TIMEOO 
ALT, 

SUNM, 

XORGIN, 

+ ALPHA(25), 

COMMON /INTEG/THETAL(25) , 

+ DTHETAI25), 

+ D0MEGA(25), 

+ NPHI 

COMMON /TEMPS/ TEMP (2000) 
COMMON/PLUMES/ PLUMEC( 10,25 
+ C2L0C(50 

+ CIDENT(50, 

COMMON/MOLEC/ MOLWT(IO), DIA(IO) 
COMMON /SURFS/IDENTOOO) , AREAOOO) 
COMMON/CHAR/ITITLE(72) , IRSPNSIBO 
+ KINDS(25) 

+ MATRLI300) 

+ NPLUME(25) 

COMMON/CHFLAG/ CHATT, 

+ CHTIM, 


MOUT 1 , 
AMBWT, 


CHNGPL 
, TSTART 
M0UT2, 
AMBDIA, 

YAW, 

X0(25) , 


3), TSTOP 
MED1 , 
TSTARR, 


3), 

MED2, 

MACH, 


ROLL, 


SUNL 

20(25) 


Y0(25) , 

), GAMMA (25) 

THETAK25), THETA2125), 
PHI2(25), DPHK25), 
RMAX, NTH6TA, 


•f 

-f 


^ * 0087 
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0090 
0090 
0090 
0090 
0090 
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0090 
0090 

.0090 
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0091 
0091 
0091 
0091 
0091 
0091 
0091 
0091 
0091 

0091 

0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 
0092 

0092 

0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 


SPECMF( 10,25 
CTHETA(50 


CXLOC 

CPHI 


50 

50 


CYL0C(50 


PLACE(30) , 
NAMEPL. 


NEWNAM(6 
SPECIE! 10 
CLOC(50 


LTYPE(25) . 
SECTOOO) , 
CTYPE(50) . 


CHALT, CHVEL, CHSUN, 

CHAGE, CHINDX, CHWT , 
CHVIEW(25), CHRATE(25, 10) , CHTAU(25,10 

CHPLUMI 10,25) . CHMF( 10,25) 

INDXSP(25), INDXK(25), INDXPOO), INDXPL 
+ INDXdT, INDXKT 

COMMON/NUCON/NUSECT(6,300) , NUMATL ( 6 . 300 ) , NULOC(6,50) 

+ NUTYPE(6,50) , NUSPECI 6 . 10 ) , NUKIND(6!25) 

NUPLAC(6,30) . NUNPLM(6.25) 


COMMON/ I NDX/ 


CHDS.CHORIG, 
CHDIA, CHL0C(251 


!25 


REAL ONTIME, MACH. MOLWT 
INTEGER SURFSC, SSURFS, 

+ PLACE. SPECIE, 

+ CLOC, CTYPE, 

LOGIC..'. ORBITR, PAYLOD, 
DIRECT, RFAS2. 
NEWTNL. NEWMFS, 
NEWPL, SUNL. 
CHATT, CHALT, 
CHVIEW. CHTIM, 
CHINDX, CHWT, 


PNTSC, 

SECT, 

CHNGES, 

OUT, 

RFSS, 

NEWMFP. 

SUNM, 

CHVEL, 

CHRATE, 

CHDIA, 


RECEVR, 

MATRL, 

CHNGEK, 

ED, 

REFLCT, 

MINTMP. 

SUNH, 

CHSUN, 

CHTAU, 

INDXSP. 


ITITLE. 

ATCODE, 

CHNGEP. 

LEAK, 

NEWCON, 

MAXTMP, 

R41DEP, 

CHDS, 

CHASE, 

INDXK, 


LTYPE. 

SERIES, 

CHNGPL 

PLUME, 

NTAPE4, 

REPORT, 

NEWDAT, 

CHORIG, 

CHPLUM. 

INDXP, 


KINDS, 

CIDENT, 

MCD, 

NEWTCD, 

GO, 

ADSURF. 

CHLOC, 

CHMF, 

INDXPL 
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SEE IF THE USER WANTS TO CHANGE THE DEFAULT ORBITER ALTITUDE. \ZELOCI 
OR ATTITUDE. IF SO, SET CHANGE FLAGS AND PROMPT FOR INPUTS. 

10 CALL CLEAR 
CALL HEADER! 7) 

WRITE(6,6010)PITCH, YAW. ROLL 

6010 FORMAT! /IX, 51HDO YOU WANT TO CHANGE THE ORBITER DEFAULT ATTITUDE'’ 
+//2X,9H!PITCH = ,F6.2,8H, YAW = .F6.2.9H, ROLL = ,F6.2,1H)//) 

CALL KYBDIN!IRSPNS.3,ITYPE.IVALUE,FVALUE,IFIRST, ILAST) 

IF! IRSPNS! IFIRST) .NE. 1HY) GO TO 50 


6020 


6030 


6040 


CHATT = .TRUE. 
WRITE!6,6020) 
FORMAT!//1X,30HENTER 
CALL KYBDIN! IRSPNS, 1 
PITCH = FVALUE 
WRITE!6,6030) 

FORMAT! //IX, 17HENTER 
CALL KYBDIN! IRSPNS, 1 , 
YAW = FVALUE 
WRITE!6,6040) 
FORMAT!//1X, 18HENTER 
CALL KYBDIN! IRSPNS, 1 , 
ROLL = FVALUE 


PITCH ANGLE IN DEGREES -/25X) 
ITYPE, I VALUE, FVALUE, IFIRST. ILAST 

YAW ANGLE -/25X) 

ITYPE, I VALUE, FVALUE, IFIRST, ILAST 


ROLL ANGLE -/25X) 

ITYPE, I VALUE, FVALUE, IFIRST, ILAST) 


50 CALL CLEAR 
CALL HEADER!7) 

WRITE!6,6050)ALT 

6050 F0RMAT!/1X.51HD0 YOU WANT TO CHANGE THE ORBITER DEFAULT ALTITUDE'’ 
+//2X,7H!ALT = .F6.2.4H KM) ) 

CALL KYBDIN! I RSPNS . 3 . I TYPE , I VALUE . F VALUE . I F I RST . I LAST ) 

IF! IRSPNS! IFIRST) .NE. 1HY) GO TO 100 
CHALT = .TRUE. 

60 WRITE!6,6060) 

6060 F0RMAT!//1X,30HENTER DESIRED ALTITUDE !IN KM)/25X) 

CALL KYBDIN! IRSPNS, 1 , ITYPE . IVALUE , FVALUE . IFIRST . ILAST ) 
IF!FVALUE.LE.O. ) GO TO 60 
ALT s FVALUE 


100 CALL CLEAR 

CALL HEADER!7) 

WRITE!6,6070)VA 

6070 F0'<MAT!/1X,51HD0 YOU WANT TO CHANGE THE ORBITER 
+//2X,7H!VEL = ,F6.0,7H M/SECI ) 

CALL KYBDIN! IRSPNS , 3 , ITYPE , I VALUE , FVALUE , I F IRST 
IF! IRSPNS! IFIRST) .NE. 1HY) GO TO 150 
CHVEL = .TRUE. 

110 WRITE!6.6080) 

6080 FORMAT!//1X.33HENTER DESIRED VELOCITY !IN M/SEO/25X) 
CALL KYBDIN! IRSPNS . MTYPE . I VALUE . FVALUE , I F IRST , I LAST 
IF!FVALUE.LE.O. I GO TO 110 
VA = FVALUE 


ORBITER DEFAULT VELOCITY? 


ILAST 


SEE WHICH ATMOSPHERIC DENSITY MODEL !SUNSPOT ACTIVITY) IS DESIRED 

150 CALL CLEAR 

CALL HEADER! 7) 

160 WRITE!6.6090) 

6090 FORMAT! /IX, 34HSELECT DESIRED ATMOSPHERE DENSITY:// 

♦5X.6H1) L0W/5X.9H2) MEDIUM/5X . 7H3 ) HIGH//25X) 

CALL KYBDIN! IRSPNS, 0, ITYPE. IVALl*' "VALUE . IF IRST , I LAST ) 

62 


/ 


> GO TO 160 

IFdVALUE.EO. 1) SUNL=.TRUE. 
lFdVALUE.EO.2) SUNMs.TRUE. 

IFdVALUE.EO. 3) SUNH=.TRUE. 

!F( ( I VALUE. EQ. 1 ) . OR . (IVALUE . EQ. 3 ) ) CHSUN=.TRUE. 

FOR^MNIPK? ANALYSIS. PROMPT 

FOR LINE(S)-OF-SIGHT AND RECEIVER LOCATION(S)/ORIENTATION( S) 


200 


GO TO 800 


6100 


6110 


j I 


IF( .NOT. (MCD. AND.RFAS2.AND.RFSS) I 
Call clear 
CALL HEADER!?) 

WRITE(6,6100) 

00^250 ^N-1 ’ 25 ^'"*’"*'* RECEIVER LOCATION 

IFIRECEVR(N) .EQ.O) GO TO 250 

roiJ.^!?V?^^°>^-^^OEVR(N),XO(N).YO(N).ZO(N) 

receiver number .I2.8H - NODE I4//1X 
'*^cc^n^9 CHANGE THE RECEIVER DEFAULT LOCATION?/’ 
+5X 5H(X = ,F6.2,6H, Y = ,F6.2,6H, Z = , F6 . 2 , 1H I /25X ) 

CALL KYBDINdRSPNS.S.ITYPE.IVALUE.FVALUE.IFIRST ILAST) 

IF (IRSPNS! IFIRST ) .NE. 1HY ) GO TO 250 
CHLOC(N) = .TRUE. 

WRITE(6,6115) 

FORMAT (// I X , 39HENTER RECEIVER X-COORDINATE (IN INCHES)/25X 
CJLL^KYBDINdR^^^^ 

WRITE(6.6120) 

RECEIVER Y-COORDINATE/25X) 

IFIRST, ILAST) 

YO(N) = FVALUE 
WRITE(6.6130) 

FORMAT! /5X.27HENTER RECEIVER Z-C00RDINATE/25X ) 

ILAST) 

Z0(N) = FVALUE 
250 CONTINUE 


,6115 


6120 


6130 


IF AN MCD ANALYSIS WAS REQUESTED. PROMPT FOR LINE-OF-SIGHT DEFINI 

300 IF!. NOT. MCD) GO TO 500 
CALL CLEAR 
CALL HEADER!?) 

WRIT£!6.6180) 

definition FOR MCD ANALYSIS 
^//1X.56H!0NE MCD LINE-OF-SIGHT MAY BE INPUT FOR EACH RECEIVER 

DO 400 N=1.25 

IF!RECEVR!N) .EQ.O) GO TO 400 
WRITE!6.6190)N.RECEVR(N) 

6190 FORMAT!// IX, 20H'"'*=* RECEIVER NUMBER .I2.8H - NODE I4//1a 

4.0CUTMDMT AM/^l C TitrTA iTk, rs r* ^ s, . t * » Wi 1 

fcw. 1*111^^1 I nc I M \m ucow^da) 

I VALUE. FVALUE. IFIRST. ILAST) 

iHtfALlN) = FVALUE 
WRITE!6.6200) 

6200 FORMAT!/ IX, 24HINPUT ANGLE PHI ! IN DEG)/25X) 

^ TYRE . I VALUE . FVALUE .IFIRST . ILAST ) 

rnlUN) = FVALUE 
400 CONTINUE 

IF AN RFAS2 OR RFSS ANALYSIS WAS REQUESTED. PROMPT FOR LOS DEFINI 
500 IF! .NOT. (RFAS2.AND.RFSS) ) GO TO 800 


0100 

0100 

0100 

0100 

0100 

0100 

0100 

0100 

0100 

0101 

0101 

0101 

0101 

0101 

0101 

0101 

0101 

0101 

0101 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0102 

0103 

0103 

0103 

0103 

0103 

0103 

0103 

0103 

TION0103 

0103 

0104 
0104 
0104 
0104 
0104 

-) 0104 

0104 
0104 
0104 

0104 

0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 

0105 
TION0106 

0106 
0106 
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CALL CLEAR 
CALL HEADER!?) 

WRITE(6.6210) 

6210 F0RMAT(//1X.46H*** LOS DEFINITION FOR RFAS2/RFSS ANALYSIS ***//) 
DO 550 N=1,25 

1F(RECEVR(N) .EQ.O) GO TO 550 
WRITE(6.6220)N,RECEVR(N) 

6220 FORMAT(//1X.20H*** RECEIVER NUMBER ,I2,8H - NODE ,14/) 
WRITE(6,6140) 

6140 FORMAT! //IX, 51HD0 YOU WANT TO CHANGE RECEIVER DEFAULT 

+/1X,47H|DEFAULT IS WITH RECEIVER NORMAL ALONG +Z AXIS)//25X 
CALL KYBDINI IRSPNS.3, ITYPE, IVALUE,FVALUE, IFIRST,ILAST) 
IFIIRSPNS!IFIRST).NE. 1HY) GO TO 520 
CHVIEW!N) = .TRUE. 

WRITE!6,6150) 

6150 F0RMAT!/1X,41HINPUT 1ST ROTATION (ALPHA) 

CALL KYBDIN!IRSPNS, 1 , ITYPE , I VALUE , FVALUE 
ALPHAIN) = FVALUE 
WRITE!6,6160) 

6160 F0RMATI/1X,44HINPUT 2ND ROTATION 


- CCW ABOUT +Z/25X 
IFIRST, ILAST) 


BETA) - CCW ABOUT NEW +X/25X) 


6170 


520 

G225 


6230 


6240 


6250 


6260 


6270 


GAMMA) 

, FVALUE 


DEG)/) 

, FVALUE 


- CCW ABOUT NEW +Z/25X) 
IFIRST, ILAST) 


IFIRST, ILAST 


CALL KYBDIN! IRSPNS, 1 , 1 T YPF. , I VALUE , F VALUE , I F I RST , I LAST 

BETA!N) = FVALUE 

WRITE!6,6170) 

FORMAT!/1X,45HINPUT 3RD ROTATION 
CALL KYBDINI IRSPNS, 1 , ITYPE , I VALUE 
GAMMA! N) = FVALUE 
WRITEI6.6225) 

FORMAT! /IX, 24HINPUT ANGLE THETA1 
CALL KYBDIN! IRSPNS, 1 ITYPE, I VALUE 
THETAKN) s FVALUE 
WRITE!6,6230) 

F0RMATI/1X, 18HINPUT ANGLE THETA2/) 

CALL KYBDIN! IRSPNS, 1 , ITYPE , I VALUE , FVALUE , IFIRST , ILAST ) 

THETA2IN) = FVALUE 

WRITE!6,6240) 

F0RMAY|/1X,22HINPUT 
CALL KYBDIN! IRSPNS, 

DTHETAIN) = FVALUE 
WRITE!6,6250) 

F0RMATI/1X, 16HINPUT 
CALL KYBDIN! IRSPNS, 

PHIIIN) s FVALUE 
WRITE!6,6260) 

F0RMATI/1X, 16HINPUT 
CALL KYBDIN! IRSPNS, 

PHI2IN) = FVA.UE 
WRITEI6,6270) 

FORMATi/1X,20HINPUT 
CALL KYBDIN! IRSPNS, 

DPHIIN) = FVALUE 


INCREMENT DTHETA/) 

, I TYPE, I VALUE. FVALUE, I FIRST, ILAST 


ANGLE PHI1/) 

1. ITYPE, I VALUE. FVALUE, IFIRST, ILAST 


ANGLE PHI2/) 

1 . ITYPE. IVALUE 


FVALUE, IFIRST. ILAST 


INCREMENT DPHI/ ) 

1. ITYPE, IVALUE. FVALUE 


IFIRST. ILAST) 


550 CONTINUE 


BASICALLY DONE - COULD 
THE DS! I ) ARRAY. RMAX, 
THESE OPTIONS ARE 
WARRANTED AT THIS 


800 CONTINUE 
RETURN 


ADD AT A FUTURE TIME THE OPTION 
DOMEGA(I). RFSTK. ETC. - IT WAS 


SO SELDOM 
TIME. 


USED THAT IMPLEMENTATION WAS NOT 
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0106 
0106 
0106 
0106 
0106 
0106 
0106 
0107 
0107 

CRIENTATION70107 
0107 
0107 
0107 
0107 
0107 
0107 

0107 

0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 
0109 
0109 
0109 
0109 
0109 
0109 
0109 
0109 
0109 

0109 

0110 
0110 
0110 
0110 
0110 
0110 
0110 
0110 
0110 
0110 
0111 
0111 
oil 1 
0111 
0111 
0111 
0111 
oil 1 
0111 
0111 
0112 
0112 
0112 
0112 
0112 


TO MODIFY 
FELT THAT 


-f 

+ 

+ 


COMMON /CNTRL/ ORBITR, PAYLOD, 

MCD. DIRECT, 


OUT, 
RFAS2, 
NTAPE4. NEWTCD, 


NEWCON, 

MINTMP, MAXTMP, ATCODE | 


COMMON/CONFIG/ SURF SC (300 
0NTIME(50) , 
SERIES, 
JTOTAL, 
ISSURFOOO) 


^SURFS(300 
RECEVR(25) . 
NEWDAT, 
KTOTAL, 


ED, LEAK, 
RFSS, REFLCT, 
NEWTNL, NEWMF*^, 
R41DEP, GO, 
. PNTSCI50), 
ICCODE, 
ADSURF, 
NORBPL, 


PLUME, 

NRFLCT, 

NEWMFP. 

REPORTI70) 

NEWPL(SO) 

FOVANGI25) 

NNEWPL 

ISURFI300) 


END 0112 

SUBROUTINE ADDCON 0112 

* * 01 12 
* COLLECT NEW CONFIGURATION DATA ♦0t13 

l*mmm*mm**mmmmmmmm*m*»**mm**m**m* *0113 

0113 

0113 
0113 
0113 
0113 

0113 
,0114 
,0114 
,0114 
,0114 

01 14 
0114 
0114 
0114 
0114 

0114 

0115 
- 0 1 1 5 

0115 
0115 
0115 
0115 
0115 
0115 

0115 
,0115 

0116 
0116 
0116 
0116 
0116 
01 16 
0116 
0116 

0115 

0116 
0117 
0117 
n 1 17 
0117 

0117 
n 1 1 7 

W • t I 

0117 
0117 
0117 

0117 

0118 
0118 
0118 
01 18 
01 18 
0118 
0118 


COMMON/CHANGE/ 

CHNGES, CHNGEK, 

CHNGEP, 

CHNGPL 



COMMON 

/RATES/ 

RATE(25, 10 

), TAU(25,10) 

, TSTART( 

3), TSTOP( 

3) , 



AGEORB, AGEPLD, 

M0UT1 , 

M0UT2, 

MED1 

MED2, 



Ml , 
TIMEOO 

M2, 

AMBWT, 

AMBDIA, 

TSTARR, 

MACH, 

-f 



COMMON 

/ORBIT/ 

ALT, 

VA, 

PITCH, 

YAW, 

ROLL, 

SUNL, 



SUNM, 

SUNH 


COMMON 

/GEOM/ 

XORGIN, YORGIN, 

ZORGIN, 

X0(25) , 

Y0(25), ZC 

h25) , 

+ 


ALPHA(25) , 


BETA(25 

) , 

GAMMA (25) 

COMMON 

/INTEG/THETAL(25) , 

PHIL(25) , 

THETA1 (25 

), THETA2( 

25) , 

•f 

0THETA(25) , 

PHIK25), 

PHI2(25 

). DPHK 

25) . 


DOMEGA(25) , 


DS(25) , 

RMA 

; NTHETA. 



NPHI 






COMMON 

/TEMPS/ 

TEMP (2000) 







COMMON/PLUMES/ PLUMEC( 10,25 
* CZLOC(50 

CIDENT(50) 

COMMON/MOLEC/ MOLWT(IO), DIA(IO) 
COMMON /SURFS/ IDENT' 300 ! , AREA (300) 

IRSPNS(eO) , 
PI ACE (30) , 
NAME PL, 


SPECMF( 10,25 
CTHETA(50 


CXLOC 

CPHI 


:50) 

50) 


C''LCC(50 


COMMON/CHAR/ 1 TITLE (72 
+ KINDS125) 

MATRL(300) 
+ NPLUME(25) 

COMMON/CHFLAG/ CHATT, 


NEWNAM(6: 
sPECi£( io: 
CLOC(50I 


LTYPE(25) . 
SECT ( 300 ) , 
CTYPE(50) , 


CHTIM, 


CHDS,CHGRIG, 
CHDIA, CHL0C(25 


COMMON/ INDX/ 


CHALT, CHVFL, CHSUN, 

CHAGE, CHINDX. CHWT, 

CHVIEW(25), CHRATE(25„ 10) . CHTAU(25,10 

CHPLUMi 10,25) . CHMF( 10,25) 

INDXSP(25), INDXK(25). INDXP(30-. IN0XPII25) 
INOXKT 


INDXJT, 


CuMMON/NUCON/NUSECT(6,300) , NUMATL ( 6 , 300 ) , NULCC(6,50), 

NUTYPE ( 6 , 50 ) . NUSPFC(R 10> NUk.TNniR om 



NUPLAC(6.3C) , NUNPLM(6,25) 

REAL ONTIME, MACH, MOLWT 



INTEGER 

SURFSC, 

SSURFS, 

PNTSC. 

RECEVR, 

ITITLE. 


PLACE. 

SPECIE. 

SECT. 

MATRL, 

ATCODE, 

♦ 

CLOC, 

CTYPE, 

CHNGES. 

^hNoEK, 

CHNGEP. 

LOGICAL 

ORBITR. 

PAYLOD. 

OUT. 

ED. 

LEAK. 

-f 

DIRECT. 

RFAS2, 

RFSS. 

REFLCT. 

NEWCON, 

> 

NEWTNL. 

NEWMFS. 

NEWMFP. 

MINTMP. 

MAXTMP. 

-f 

NEWPL, 

SUNL. 

SUNM, 

SUNH. 

R41DEP. 

•f 

CHATT. 

CHALT. 

CHVEL. 

CHSl ,5 

CHDS, 


LTYPE, 

SERIES, 

CHNGPL 

PLUME, 

NTAPE4, 

REPORT, 

NEWDAT, 

CHORIG, 


KINDS, 

CHENT, 

MCD, 

NEWTCD, 

GO, 

ADSURF, 

CHLOC, 


4 * 


CHVIEW, CHTIM, CHRATE, CHTAU, 
CHINDX, CHWT, CHDIA, INDXSP, 


CHAGE, CHPLUM, CHMF, 
TNDXK, INDXP, INDXPL 


DESIRES TO INPUT A NEW SURFACE CONFIGURATION AS 

(NEWCON OPTION). IF SO, PROMPT 
^2? 222^^2*'^®^'^’ '-OCATION (PLACE), MATERIAL AND SURFACE AREA. 
IWl fn22?5? DETERMINES THE SEQUENCE NUMBER FROM 

lol 22222^^ JTOTAL. incrementing dTOTAL AS SURFACES 

ARE ADDED . 


IF( .NOT.ADSURF) GO TO 500 
CALL CLEAR 
CALL HEADER(4) 

INDXJT = dTOTAL 
WRITE(6,6010) 

6010 FORMAT (//40H*** NEW SURFACE CONFIGURATION INPUTS ***/) 


10 WRITE(6,6020) 

6020 FORMAT ( //32HINPUT NEW NODE NR. ("0" IF DONE)/) 

?J/-w!;^22^2i^5P'^^-°'^^^P^-^''ALUE,FVALUE,IFIRST,ILAST 

IF( iVALUE.EQ.O) GO TO 500 

IF( ( IVALUE.LT.O) .OR. ( IVALUE.GE.5000) ) GO TO 10 
dTOTAL = dTOTAL + 1 
IDENT(dTOTAL) = IVALUE 


20 WRITE(6.6030) 

6030 FORMAT (/30HINPUT LOCATION (6 LETTERS MAX)/) 

2?2A.*^^®??2ii'^^''^2’2'^‘^YP^-^'^^‘-UE.FVALUE,IFIRST,lLAST) 
NCHAR = ILAST - IFIRST + 1 
IFINCHAR.GT.6) GO TO 20 
IPAD = 6 - NCHAR 
IF( IPAD.EQ.O) GO TO 40 
DO 30 1=1 , IPAD 
30 NUSECT( I, dTOTAL) = 1H 
40 IPAD1 = I'’AD + 1 
II = 0 

DO 50 I=IPAD1,6 
II = II + 1 

50 NUSECT( I, dTOTAL) = IRSPNS( IFIRST + II - 1) 

120 WRITE(6,6040) 

6040 FORMAT(/30HINPUT MATERIAL (6 LETTERS MAX)/) 

^ ^ ^ - ^'/ALUE , I F I RST , ILAST ) 
NCHAR = ILAST - IFIRST + 1 
IFINCHAR.GT.6) GO TO 120 
IPAD = 6 - NCHAR 
IF (IPAD.EQ.O) GO TO 140 
DO 130 1=1, IPAD 
130 NUMATLI I, dTOTAL) = 1H 
140 IPAD1 = IPAD + 1 
II = 0 

DO 150 I=IPAD1,6 
II = II + 1 

150 NUMATLI I, dTOTAL) = IRSPNSI IFIRST + II - 1) 


160 WRITE(6,6050) 

6050 FORMAT I/28HINPUT SURFACE AREA (SQ. IN.)/) 
AREA(JTOTAL) = FVALUE 
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0118 

0118 

0118 

==0119 

0119 

0119 

0119 

0119 

0119 

0119 

0119 

0119 

0119 

0120 
0120 
0120 
0120 
0120 
0120 
0120 
0120 
0120 
0120 
0121 
0121 
0121 
0121 
0121 
0121 
0121 
0121 
0121 
0121 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0123 
0123 
0123 
0123 
0123 
0123 
0123 
0123 
0123 

0123 

0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 


INPUT NEW POINT SOURCE DATA 





500 IF(NNEWPL.EQ.O) GO TO 999 
CALL CLEAR 
CALL HEADER(4) 

INDXKT = KTOTAL - NNEWPL 
WRITE(6,6060) 

6060 FORMAT(//31H*** NEW POINT SOURCE INPUTS ***/) 


DO 800 N=1, NNEWPL 
K = NORBPL + N 
WRITE(6,6070) N.PNTSC(K) 

6070 FORMAT (/24HNEW POINT SOURCE NUMBER ,I2,15H - NODE NUMBER ,14, 1H: 
520 WRITE(6,6080) 

6080 F0RMAT(/43HINPUT POINT SOURCE LOCATION (6 LETTERS MAX)/) 

CALL KYBDIN(IRSPNS,3, ITYPE, IVALUE,FVALUE, IFIRST, ILAST) 

NCHAR = ILAST - IFIRST + 1 
IF(NCHAR.GT.6) GO TO 520 
IPAD = 6 - NCHAR 
IF( IPAD.EQ.O) GO TO 540 
DO 530 1=1, IPAD 
530 NULOC(I,K) = 1H 
540 IPAD1 = IPAD + 1 
II = 0 

DO 550 I=IPAD1,6 
II = II + 1 

550 NULOC(I,K) = IRSPNSI IFIRST + II - 1) 


620 WRITE(6,6090) 

6090 FORMAT(/39HINPUT POINT SOURCE TYPE (6 LETTERS MAX)/) 
CALL KYBDINI IRSPNS, 3, ITYPE, I VALUE, FVALUE, IFIRST, ILAST) 
NCHAR = ILAST - IFIRST + 1 
IF(NCHAR.GT.6) GO TO 620 
IPAD = 6 - NCHAR 
IF(IPAD.EC.O) GO TO 640 
DO 630 1=1, IPAD 
630 NUTYPE(I.K) = 1H 
640 IPAD1 = IPAD + 1 
II = 0 

DO 650 I=IPAD1,6 
II = II + 1 

650 NUTYPE(I,K) = IRSPNS ( 1 F I RST + II - 1) 


WRITE(6,6100) 

6100 FORMAT) /40HINPUT POINT SOURCE X~COORDINATE (INCHES)/) 

CALL KYBDINI IRSPNS, 1 , ITYPE , I VALUE , FVALUE , IF IRST , ILAST ) 

CXLOC(K) = FVALUE 

WRITE(6,6110) 

6110 FORMAT) /40HINPUT POINT SOURCE Y-COORDINATE (INCHES)/) 

CALL KYBDIN) IRSPNS, 1 , ITYPE , I VALUE , FVALUE , IFIRST , ILAST ) 

CYLOC(K) = FVALUE 

WRITE(6,6120) 

6120 FORMAT) /40HINPUT POINT SOURCE Z-COORDINATE (INCHES)/) 

CALL KYBDIN) IRSPNS, ) , ITYPE , IVALUE , FVALUE , IFIRST , ILAST ) 

CZLOC(K) = FVALUE 

WRITE(6,6130) 

6130 FORMAT) /44HINPUT POINT SOURCE ORIENTATION ANGLE (THETA)/) 
CALL KYBDIN) IRSPNS, 1 , ITYPE , IVALUE , FVALUE , IF IRST , ILAST ) 
CTHETA(K) - FVALUE 
WRITE(6,6140) 67 


0125 

0125 

0125 

0125 

0125 

0125 

0125 

0125 

0125 

0125 

0126 
0126 
0126 
0126 
0126 
0126 
0126 
0126 
0126 
0126 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 

0127 

0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 

0129 

0130 
0130 
0130 
0130 
0130 
0130 
0130 
0130 
0130 

0130 

0131 




6140 F0RMAT(/42HINPUT POINT SOURCE ORIENTATION ANGLE (PHI)/) 

CALL KYBDIN( IRSPNS, 1 , ITYPE , IVALUE , FVALUE , I F IRST , I LAST ) 

CPHKK) = FVALUE 

800 CONTINUE 

ALL DONE 

999 RETURN 
END 

SUBROUTINE ADDATA 

* * 

* PROCESS CHANGE CARDS * 

* * 

RETURN 

END 

SUBROUTINE ADDTMP 

♦PROCESS NEW TEMPERATURE DATA * 

♦ ^ 

RETURN 

END 

SUBROUTINE ADDVFS 

* ★ 

♦COLLECT NEW VF DATA* 

* * 

RETURN 

END 

SUBROUTINE BUILD 

♦ ♦ 

♦BUILD SPACE II INPUT DATA FILE* 

♦ * 


COMMON /CNTRL/ ORBITR, PAYLOD, OUT, ED, LEAK, 

MCD, DIRECT, RFAS2, RFSS, REFLCT, 
NEWCON, NTAPE4, NEWTCD, NEWTNL, NEWMFS, 
MINTMP, MAXTMP, ATCODE, R41DEP, GO, 
COMMON/CONFIG/ SURFSCOOO), SSURFSOOO), PNTSC(50), 

0NTIME(50), RECEVR(25), ICCODE, 

SERIES, NEWDAT, ADSURF. 

JTOTAL, KTOTAL, NORBPL, 

ISSURFOCO) 

CHNGES, CHNGEK, CHNGEP, CHNGPL 
RATE(25,10), TAU(25,10), TSTARTO), TSI 

AGEORB, AGEPLD, MOUTI VI0UT2, MED1, 
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COMMON/CHANGE/ 
COMMON /RATES/ 


0131 
0131 
0131 
0131 
0131 
0131 
0131 
0131 

0131 

0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 

0132 

0133 
0133 
0133 
0133 
0133 
0133 
0133 
0133 
0133 

0133 

0134 
0134 
0134 
0134 
0134 
0134 
0134 
0134 
0134 

0134 

0135 
0135 
0135 
0135 
0135 
0135 
0135 
0135 

0135 

:===========0135 

0136 
0136 
0136 
0136 
0136 

,0136 
,0136 
,0136 
,0136 

0136 

0137 
0137 
0137 


PLUME, 

NRFLCT, 

NEWMFP, 

REP0RT(70) 

NEWPL(50) 

F0VANG(25) 

NNEWPL 

ISURF(300) 


0P(3) . 
MED2, 




M2, AMBWT, AMBDIA, TSTARR, 


COMMON /ORBIT/ 


COMMON 


PITCH, 


YAW, 
X0(25) , 


ROLL 


MACH, 
SUNL, 
Z0(25) . 


+ 

+ 

+ 


NEWNAM(6) 
SPECIE( 10) 
CLOC(50) 


LTYPE(25 

SECTOOO: 

CTYPE(50; 


+ M1 . 

+ TIMEOO 

ALT, VA, 

, SUNM, SUNH 

^ /GEOM/ JORGJN. JORGIN, ZORGIN, X0(25), Y0(25) 

CO,«N /,NTtO/T : 

K|!: 

COMMON /TEMPS/ TEMP (2000) 

^COIHIHON/PLUMES/ PLUMECI 10 25) , SPECMF ( 10 , 25 ) , CXLOC150), CYLOC 

" CIDENtIsoi' '^^“^^'''50), CPHK60), 

COMMON/MOLEC/ MOLWT(IO), DIA(IO) 

COMMON /SURFS/IDENT(300) , AREA (300) 

COMMON/CHAR/ITITLE(72) . IRSPNsIbO) 

+ KINDS(25), PLACE(30).’ 

+ MATRL(300), NAMEPL, 

+ NPLUME(25) 

COMMON/CHFUG/ CHATT, CHALJ CHVEL, CHSUN, CHDS.CHORIG, 

tHVltW(25), CHRATE(25, 10) , CHTAU(25 10) 
rnMiwm-TMnv/ CHPLUM( 10,25) , CHMF( 10,25) 

^COMMON, INDX/ INDXSPI25), 1NBXK(25), INDXPOOl, INDXPL(25), 

COMMON/NUCON/NUSECT(6.300), NUMATL ( 6 , 300 I , NUL0C16 50) 

t '^usPEcie.io) nS els : 

NUPLAC(6,30l , NUNPLM(6,25) 

REAL ONTIME, MA( MOLWT 
INTEGER SURFSC, i>SURFS, PNTSC 
PLACE, SPECIE, SECT 
CLOC, CTYPE, CHNGES, 

LOGICAL ORBITR, PAYLOD, OUT 
DIRECT, RFAS2, RFSS,’ 

NEWTNL, NEWMFS, NEWMFP, 

NEWPL, SUNL, SUNM, 

CHATT, CHALT, CHVEL, 

CHVIEW, CHTIM, CHRATE, 

CHINDX, CHWT, CHDIA, 


50 


+ 

+ 

+ 

+ 


RECEVR 

MATRL, 

CHNGEK, 

ED, 

REFLCT, 

MINTMP, 

SUNH, 

CHSUN, 

CHTAU, 

INDXSP, 


ITITLE, 

ATCODE, 

CHNGEP, 

LEAK, 

NEWCON, 

MAXTMP, 

R41DEP, 

CHDS, 

CHAGE, 

INDXK, 


LTYPE 

SERIES, 

CHNGPL 

PLUME, 

NTAPE4. 

REPORT, 

NEWDAT, 

CHORIG, 

CHPLUM, 

INDXP, 


KINDS, 

CIDENT, 

MCD, 

NEWTCD, 

GO, 

ADSURF, 

CHLOC, 

CHMF, 

INDXPL 


iHE SPACE II INPUT DECK IS BUILT AND OUTPUT TO TAPE 1 

OUTPUT THE USER'S TITLE FOR THIS CASE 
REWIND 1 

WRITE! 1 , 1010) ( ITITLE! I ) , 1 = 1 ,72> 

1010 FORMAT(72A1 ) 

GENERATE OUTPUT FOR NAMELIST SCONTRL 

(SHOW ALL VALUES, WHETHER .T. OR .F., DEFAULT OR NOT) 

WRITE; 1,1020) 

1020 FORMAT (8H SCONTRL) 

IF(ORBITR) WRITE! 1 , 1030) 

1030 FORMAT! 16H ORBITR=.TRUE ) 

IF! .NOT. ORBITR) WRITE! 1, 1040) 69 


0137 

0137 

0137 

0137 

0137 

0137 

0137 

0138 
0138 
0138 
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1040 FORMAK 17H 0RBITR= . FALSE ., ) 

IF(PAYLOD) WRITE( 1, 1050) 

1050 FORMAT ( 16H PAYLOD= . TRUE . , ) 

IF( .NOT.PAYLOD) WRITE! 1 ,1060) 
1060 FORMAT! 17H PAYLOD= . FALSE ., ) 

IF(OUT) WRITE! 1 ,1070) 

1070 FORMAT! 13H OUT-. TRUE.,) 

IF! .NOT. OUT) WRITEd ,1080) 

1080 FORMAT! 14H OUT= . FALSE ., ) 

IF!ED) WRITE! 1 , 1090) 

1090 FORMATI12H ED=.TRUE.,) 

IF! .NOT. ED) WRITEd ,1100) 

1 100 FORMAT! 13H ED=.FALSE.,) 

IF!LEAK) WRITEd , 1110) 

1 1 10 FORMAT! 14H LEAK= . TRUE . , ) 

IF! .NOT. LEAK) WRITE! 1,1120) 

1 120 FORMAT! 15H LEAK= . FALSE ., ) 

IF!PLUME) WRITE! 1 , 1130) 

1130 FORMATI15H PLUME= . TRUE . , ) 

IF! .NOT. PLUME) WRITE! 1 , 1140) 
1140 F0RMAT!16H PLUME= . FALSE ., ) 

IF!MCD) WRITE! 1,1150) 

1 150 FORMAT! 13H MCD=.TRUE.,) 

IF! .NOT.MCD) WRITE! 1,1160) 

1 160 F0RMATI14H MCD= . FALSE ., ) 

IFIDIRECT) WRITE! 1,1170) 

1170 F0RMATI16H DI RECT= . TRUE . , ) 

IF! .NOT. DIRECT) WRITE! 1 ,1180) 
1180 FORMATI17H DIRECT= . FALSE ., ) 

IFIRFAS2) WRITEd, 1190) 

1190 FORMATI15H RFAS2= . TRUE . , ) 

IF! .NOT.RFAS2) WRITE! 1 , 1200) 
UOO FORMAT! 16H RFAS2= . FALSE ., ) 

IF!RFSS) WRITE! 1 , 1210) 

1210 FORMAT! 14H RFSS= . TRUE . , ) 

IF! .NOT.RFSS) WRITE! 1 , 1220) 

1220 FORMAT! 15H RFSS= . FALSE ., ) 

IF!REFLCT) WRITE! 1 , 1222) 

1222 F0RMATI16H REFLCT= . TRUE . , ) 

IF! .NOT.REFLCT) WRITE ! 1 , 1224 ) 

1224 FORMAT! 17H REFLCT= . FALSE ., ) 
IFIREFLCT) WRITE! 1 , 1225) NRFLCT 

1225 F0RMAT19H NRFLCT= , 12 , 1 H , ) 

IFINEWCON) WRITE! 1 , 1226) 

1226 FORMAT! 16H NEWCON= . TRUE . , ) 

IF! .NOT.NEWCON) WRITE ! 1 , 1228 ) 

1228 FORMAT! 17H NEWCON= . FALSE ., ) 

IFINTAPE4) WRITE! 1 , 1230) 

1230 F0RMATI16H NTAPE4= . TRUE . , ) 

IF! .N0T.NTAPE4) WRITE ! 1 , 1240 ) 
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0149 
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1240 FORMAK 17H NTAPE4= . FALSE ., ) 


1250 

1260 


IF(NEWTCD) WRITE( 1 , 1250) 
FORMAT ( 16H NEWTCD= . TRUE . , ) 
IF( .NOT.NEWTCD) WRITE ( 1 , 1260 ) 
F0RMAT(17H NEWTCD= . FALSE ., ) 


IF(NEWTNL) WRITE! 1 , 1270) 

1270 FORMAT! 16H NEWTNL= . TRUE . , ) 
IF! .NOT.NEWTNL) WRITE ! 1 , 1280 ) 
1280 FORMAT! 17H NEWTNL= . FALSE ., ) 


IF!NEWMFS) WRITE! 1 , 1290) 

1290 FORMAT! 16H NEWMFS= . TRUE . , ) 
IF! .NOT.NEWMFS) WRITE! 1 ,1300) 
1300 FORMAT! 17H NEWMFS= . FALSE ., ) 


IF!NEWMFP) WRITE! 1 , 1310) 

1310 FORMAT! 16H NEWMFP= . TRUE . , ) 
IF! .NOT.NEWMFP) WRITE! 1 ,1320) 
1320 FORMAT! 17H NEWMFP= . FALSE ., ) 


1330 

1340 

1350 


IFIMINTMP) WRITE! 1 , 1330) 

FORMAT ! 16H MINTMP= . TRUE . . ) 
IF!MAXTMP) WRITE! 1 , 1340) 

FORMAT! 16H MAXTMP= . TRUE . , ) 
IF!ATCODE.NE.O) WRITE! 1 , 1350)ATC0DE 
F0RMAT!9H ATCODE= , 1 1 , 1 H , ) 


HANDLE REPORTS HERE 


WRITE! 1 , 1360) 

1360 FORMAT! 37H REPORT ! 7 ) = . TRUE REPORT I 5 1 ) = . TRUE ) 
IF !DIRECT) WRITE! 1 , 1370) 

1370 F0RMATI22H REPORT ! 2 1 ) =4* . TRUE . ) 

IF !MCD) WRITE! 1 , 1380) 

1380 FORMAT !38H REPORT ! 35 )=. TRUE REPORT ( 37 )=. TRUE ) 
IF !RFSS .OR. RFAS2) WRITE ! 1 . 1 390 ) 

1390 FORMAT!20H REPORT ! 45 ) = . TRUE ., ) 

WRITE! 1 , 1500) 

1500 FORMAT! 12H GO= . TRUE . , /5H SEND) 

HANDLE PAYLOAD CARD, IF APPROPRIATE 


IF! .NOT.PAYLOD) GO 
IF!NAMEPL.NE.6H 
1510 FORMAT !A6,4X, 14) 
IF!NAMEPL.EQ.6H 
1520 F0RMATI6A1.4X,I4) 


TO 100 

) WRITE! 1 , 1510)NAMEPL, SERIES 
) WRITE! 1 , 1520) INEWNAM!!) , 1=1 ,6) ,SERIES 


HANDLE OUTPUT FOR NAMELIST SINPUTA lONLY MODS OR SPECIFIC INPUTS) 


100 WRITE! 1 , 1525) 

1525 F0RMAT!8H SINPUTA) 


ZEROED SURFACES 


DO 110 I=1,JTOTAL 
IF!ISURF!I) .NE.O) 
1530 FORMAT!9H SURFSC 
110 CONTINUE 


WRITE! 1 , 1530) 
■ I4,4H)=0, ) 


I SURF! I) 
71 
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[ 


i 


I 


i! 

s: 


ZEROED SECOND SURFACES 
DO 120 1=1 ,UTOTAL 

IF( ISSURF( I ) .NE.O) WRITE( 1 , 1540) ISSURF(I) 
1540 FORMATOH SSURFSI . 14 , 4H ) =0 , ) 

120 CONTINUE 


HANDLE PNTSC, ONTIME AND NEWPL INPUTS 

IF( .NOT. (PLUME. AND. (NNEWPL.GT.O) ) ) GO TO 250 
DO 150 K=1,KTOTAL 

IF(PNTSC(K) .NE.O) WRITE! 1 . 1550) K,PNTSC(K) 

1550 FORMATISH PNTSC( , I2.2H) = , 14, 1H, ) 

150 CONTINUE 

DO 160 K=1,KTOTAL 

IF(PNTSC(K) .NE.O) WRITE ( 1 , 1560 ) K.ONTIME(K) 

1560 FORMATOH ONTIME( , I2,2H) = ,F6.2, 1H, ) 

160 CONTINUE 

200 IF(NNEWPL.E(3.0) GO TO 250 
KFIRST = NORBPL + 1 
KLAST = NORBPL + NNEWPL 
DO 210 K=KFIRST, KLAST 
WRITE( 1 , 1565) K 

1565 FORMAT(8H NEWPL (, 12 , 9H )=. TRUE ., ) 

210 CONTINUE 

HANDLE RECEVR, ICCODE AND FOVANG INPUTS 

250 NRECVR = 0 
DO 260 1=1,25 

IF(RECEVR( I ) .EQ.O) GO TO 260 
NRECVR = NRECVR + 1 
WRITE! 1 , 1570) I,RECEVR(I) 

1570 FORMATOH RECEVR! , 12, 2H) = , 14, 1H, ) 

260 CONTINUE 

IF!MCD. OR. DIRECT) ICCODE = 1 
IF!RFAS2.0R.RFSS) ICCODE = 2 
WRITE! 1 , 1580) NRECVR , ICCODE 
1580 F0RMAT!12H ICCODE ! 1 ) =-, 12 , 1H* , 1 1 , 1H , ) 

DO 270 1-1,25 

IF!FOVANG!I) .NE.180.) WRITE! 1 , 1590) I, FOVANG!!) 
1590 FORMAT!9H FOVANG! , 12 , 2H ) = , F6 . 2 . 1H . ) 

270 CONTINUE 


CLOSE OUT NAMELIST SINPUTA 
WRITE! 1 , 1600) 

1600 FORMAT! 12H GO= . TRUE . , /5H SEND) 

PROCESS NEW CONFIGURATION INPUTS (SURFACES AND/OR POINT SOURCES) 

IF! .NOT.NEWCON) GO TO 400 
IF! .NOT.ADSURF) GO TO 300 
dPI = INDXJT + 1 
DO 290 d=JP1 , JTOTAL 

WRITE! 1, 1610)d,IDENT!d),(NUSECT(I,J) , I = 1 , 6 ) , ! NUMATL ! I , d ) , 1= 1 , 6 ) , 
+ AREA!d) 
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^512 15, 15.4X.6A1 ,4X,6A1 ,F10. 1 ) 

290 CONTINUE 


300 IF(NNEWPL.EO.O) GO TO 390 
KP1 = INDXKT + 1 
KNEXT - NORBPL 


DO 350 K=KP1 .KTOTAL 
KNEXT = KNEXT + 1 

WRITE! 1 , 1 620) KNEXT, PNTSC( KNEXT) , (NULOCf I ,K) , 1=1 6) 
* ic^Hl (Ki®’ 

'III ™p.'5.«.6A..4X,6A,,5F,0,n 

390 WRITE! 1 , 1630) 

1630 FORMAT !5H99999) 


BUILD NAMELIST SINPUTB 

400 CONTINUE 

WRITE! 1 , 1700) 

1700 F0RMAT!8H SINPUTB) 
WRITE! 1 , 1500) 


HANDLE OUTPUT FOR NAMELIST $MPDB !ONLY MODS OR SPECIFIC INPUTS) 

WRITE! 1 , 1800) 

1800 FORMAT !6H SMPDB) 


MISSION DATA BANK MODIFICATIONS 

IF !CHATT) WRITE! 1 , 1810) PI TCH , YAW, ROLL 
1810 F0RMAT!8H PI TCH= , F6 . 2 , 1H , /6H YAW= , F6 . 2 , 1 H , /7H 
+ F6 . 2 , 1 H , ) 

IF !CHALT) WRITE! 1 , 1820) ALT 
1820 F0RMAT!6H ALT= , F6 . 2 , 1 H , ) 

IF !CHVEL) WRITE! 1, 1830) VA 
1830 FORMAT!5H VA= , F6 . 2 , 1H , ) 

IF ! .NOT. CHSUN) GO TO 500 
IF !SUNL) WRITE! 1 , 1835) 

1835 FORMAT! 14H SUNL= . TRUE . , / 1 5H 
IF !SUNH) WRITE! 1, 1840) 

1840 FORMAT! 14H SUNH= . TRUE . , / 1 5H 


ROLL=, 


SUNM=. FALSE. , 
SUNM=. FALSE. , 


MCD ANALYSIS DATA 


500 DO 510 1=1,25 

IF !.NOT. CHLOC!!)) GO TO 510 

WRITE! 1 , 1865) I ,X0! I ) , I , YOl I ) , I ,Z0(I ) 

510 CONTINUE 

IF !.NOT. MCD) GO TO 530 
DO 520 1=1,25 

IF !RECEv'RII) .EQ. 0) GO TO 520 
WRITE! 1,1880) I , THETAL ! I ) , I , PHIL ! I ) 

I 20 WNTlJir ’^^'2^* = ’''®-2-6H.PHILI ,I2.2H) = ,F6.2,1H, 


530 IF !.NOT. !RFAS2 .AND. RFSS)) GO TO 600 
DO 560 1=1,25 

IF !.NOT. CHVIEW!!)) GO TO 540 73 
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1885 

540 

1890 

1895 

1900 

560 

600 

2000 


. ■!885) I,ALPHA(I).I,BETA(I) .I.GAMMAd) 

FORMAT (8H ALPHA ( , 12 , 2H ) = , F6 . 2 . 6H , BETA ( , 12 , 2H ) = , F6 . 2 . 

GAMMA ( , I2.2H)=,F6.2, 1H, ) 

IF(RECEVR( I ! .EQ.O) GO TO 560 

WRITE ( 1 ,1890) I .THETAK I) ,I,THETA2(I ) 

-^?-?^’ = ’’'®-2'8'^*THETA2( ,I2,2H) = ,F6.2,1H. 
WRITE( 1 , 1895) I.PHIKI) ,I,PHI2(I) 

FORMAT (7H PH1 1 ( , 12 , 2H ) = , F6 . 2 , 6H , PHI2 ( , 12 , 2H ) = , F6 . 2 , 1H , ) 
WRITE(1,1900) I.DTHETA(I),I.OPHI(I) ’ ’ ' ' 

DTHETA( ,I2,2H) = ,F6.2,6H,DPHI( ,I2.2H) = ,F6.2) 

CONTINUE 


WRITE! 1, 1500) 
WRITE(1,2000) 
FORMAT (4HST0P) 


ORlGii'JAL PAG", m 
OF POOR QUALITY 
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0171 

-0171 

CAPABILITY FOR AN INTERACTIVE FORTRAN PR0171 
VALIDITY OF A USERS KEYBOARD INPUT BEFORE 0171 
RESPONSE ON TO THE MAIN PROGRAM. THIS PREVENTS A PROGRAM0171 
FROM BOMBING DUE TO A FORTRAN ERROR INDUCED BY TYPOGRAPHICAL ERRORS 0171 
VARIABLE TYPE MISMATCHES OR OTHERWISE INAPPROPRIATE USER RESPONSES.’ 0171 

THE APPROACH TAKEN IS TO INPUT ALL USER RESPONSES AS CHARACTER STRING0172 
nM$T ^*^^*^^CTER IN THE RESPONSE STRING IS THEN DECODED, ONE AT A TIME 0172 
UNTIL THE STRING CONTENTS CAN BE INTERPRETED AS ONE OF THE FOLLOWING0172 

0172 

ITYPE = 0 - INTEGER 

FLOATING POINT 

FLOATING POINT, EXPONENTIAL FORMAT 
NOT CURRENTLY IMPLEMENTED ***♦ 

STRING RESPONSE (I.E., YES, NO, ETC) 

BLANK 

NULL (CARRIAGE RETURN) 

UNRECOGNIZABLE (I.E., 1.2D, 4.4.4, ETC) 


RETURN 

END 

SUBROUTINE KYBDIN! IRSPNS , IDESIR , ITYPE , I VALUE , FVALUE , IFIRST , ILAST 

* * 

* KEYBOARD INPUT BUFFER * 

* ♦ 

- J. C. PIZZICAROLI 
7/12/83 
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0173 

THE USERS RESPONSE IS PASSED TO THE SUBROUTINE KYBD AS THE CHARACTER 0173 
ARRAY IRSPNS(SO). THE SUBROUTINE RETURNS THE FOLLOWING PARAMETERS - 0173 


IDESIR - TYPE OF RESPONSE DESIRED, PER ABOVE LIST 
ITYPE - TYPE OF RESPONSE DECODED, PER ABOVE LIST 
IVALUE - IF RESPONSE DECODED AS INTEGER, CONTAINS 
CORRESPONDING INTEGER VALUE 
FVALUE - IF RESPONSE DECODED AS FLOATING POINT, CONTA0174 
CORRESPONDING FLOATING POINT VALUE 0174 

IFIRST - IF RESPONSE ~"~ODED AS CHARACTER STRING, CON0174 
LOCATION OF 74 5T NON-BLANK CHARACTER 0174 


0173 

0173 

0173 

0173 

0174 


HAST - IF RESPONSE DECODED AS CHARACTER STRING, CON0174 


LOCATION OF LAST NON-BLANK CHARACTER 0174 

0174 

TO USE THIS SUBROUTINE, FOR EXAMPLE, THE FOLLOWING FORTRAN CODE - 0174 

0174 

READ(5,5001) X 0175 

5001 FORMAT(F10.4) 0175 

0175 

WOULD BE REPLACED BY - 0175 

0175 


CALL KYBD( IRSPNS, IDESIR , ITYPE , I VALUE , FVALUE , IFIRST.0175 

0175 

THE SUBROUTINE CHECKS TO SEE THAT THE TYPE OF RESPONSE MADE BY THE 0175 
USER WAS APPROPRIATE. IF NOT, THE USER WILL BE PROMPTED FOR ANOTHER 0175 
RESPONSE. 0175 

0176 
017b 


KEY PROGRAM VARIABLES 

IDECPT ■ 

IDIG ■ 

IFDIG1 ■ 

IFDIG2 ■ 

ILDIG1 • 

ILDIG2 ■ 

LDECPT • 

NDIG1 • 

NDIG2 • 


0176 
0176 
0176 

= 1 IF A DECIMAL POINT IS FOUND IN THE RESPONSE 0176 
= 0 OTHERWISE 0176 

= 1 IF AN INITIAL DIGIT IS FOUND IN THE RESPONSE 0176 
= 0 OTHERWISE 0176 

LOCATION IN ARRAY IRSPNS(BO) CORRESPONDING TO THE 0176 
LEFTMOST DIGIT IN A NUMERICAL RESPONSE 0177 

LOCATION IN ARRAY IRSPNSIBO) CORRESPONDING TO THE 0177 
LEFTMOST DIGIT TO THE RIGHT OF A DECIMAL POINT IN 0177 
A NUMERICAL RESPONSE 0177 

LOCATION IN IRSPNS(BO) CORRESPONDING TO THE RIGHTM0177 
DIGIT FOUND TO THE LEFT OF A DECIMAL POINT (IN A 0177 
F.P. NUMBER), OR. THE ABSOLUTE RIGHTMOST DIGIT IN 0177 
AN INTEGER RESPONSE 0177 

LOCATION IN IRSPNS'.BO) CORRESPONDING TO THE RIGHTM0177 
DIGIT FOUND TO THE RIGHT OF A DECIMAL POINT 0177 

LOCATION IN IRSPNS(BO) OF THE DECIMAL POINT, IF AN0178 
NUMBER OF DIGITS FOUND TO THE LEFT OF A DECIMAL P00178 
(IF ANY), OR, NUMBER OF DIGITS IN AN INTEGER RESP00178 
NUMBER OF DIGITS FOUND TO THE RIGHT OF A DECIMAL P0178 
(IF ANY ) 0178 
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0179 
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0179 
0179 
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0180 


DIMENSION NUM( 10) , IRSPNS(80) 

DATA NUM/1H0. 1H1 , 1H2, 1H3, 1H4, 1H5, 1H6, 1H7, 1H8, 1H9/ 
DATA IPLUS, MINUS, IBLANK, IP0INT/1H+, 1H- , 1H ,1H./ 

READ IN USERS KEYBOARD RESPONSE 

1 ITYPE = 5 
DO 2 J=1 ,80 

2 IRSPNS(d) = IBLANK 
READ(5,5001 ) ( IRSPNS( I ) , 1=1,80) 

5001 FORMAT (80A 1 ) 

IF(E0F(5)) 900,5 

INFORMATION READ 

5 WRITE(6,5002) (IRSPNS(I), 1=1,80) 

5002 FORMAT (/ IX, 2H? .80A1 ) 

INITIALIZE VARIABLES AND FLAGS 


IDIG 


0 


NDIG1 

r 

0 

NDIG2 

z 

0 

IDECPT 

z 

0 

IFIRST 

- 

0 

ILAST 

z 

0 

ISIGN 

z 

+ 1 

IVALUE 

z 

0 

FVALUE 

= 

0. 

VALUE 1 

z 

0. 

VALUE2 

z 

0. 

I 

z 

1 


FIND FIRST NON-BLANK CHARACTER IN USER 
THE LOOP, INPUT CONSISTED ENTIRELY OF 


0180 

0180 

0180 

0181 

0181 

0181 

0181 

0181 

0181 

0181 

0181 

0181 

RESPONSE. IF WE FALL THROUGH 0181 
BLANK LINE. 0182 

0182 


10 ICHAR = IRSPNS(I) 0182 

IF( ICHAR.NE. IBLANK) GO TO 20 0182 

1=1+1 0182 

IF(I.LE.80) GO TO 10 0182 

ITYPE = 4 0182 

RETURN 0182 

0182 

A NON-BLANK CHARACTER WAS FOUND. CHECK AGAINST 4 POSSIBILITIES - A 0182 
SIGN (+ OR -), A DECIMAL POINT, A DIGIT, OR OTHERWISE. 0183 

0183 

0183 

0183 

CHECK FOR A SIGN FIRST. IF FOUND, SET THE FLAG ISIGN AND RETURN TO 0183 


CONTINUE SCANNING THE REST OF THE RESPONSE FOR A NON-BLANK CHARACTER 0183 


0183 

20 IF( ICHAR.NE. IPLUS) GO TO 30 0183 

1=1+1 • 0183 

IFd.LE.80) GO TO 10 0183 

ITYPE = 6 0184 

GO TO 900 0184 

30 IF( ICHAR.NE. MINUS) GO TO 40 0184 

ISIGN = -1 0184 

1=1+1 0184 

IF( I.LE.80)GO TO 10 0184 

ITYPE = 6 0184 

GO TO 900 0184 

0184 

CHECK FOR A DECIMAL POINT (WITH NO DIGITS TO THE LEFT OF IT). IF THI0184 
SHOULD BE THE CASE, SET FLAGS AND BRANCH OFF TO SCAN THE REST OF THE 0185 
NUMBER (FRACTIONAL PART OF FLOATING POINT NUMBER). 0185 

0185 

40 IF( ICHAR.NE. IPOINT) GO TO 50 0185 

LDECPT = I 0185 

IDECPT = 1 0185 

NDIG1 = 0 0185 

GO TO 200 0185 

0185 

CHECK FOR AN INITIAL DIGIT. IF THIS SHOULD BE THE CASE, BRANCH OFF T0185 
SCAN THE REST OF THE NUMBER (COULD BE INTEGER OR FLOATING POINT) 0186 

0186 

50 DO 60 d=1 , 10 0186 

IF( ICHAR. EQ.NUM(d) ) IDIG = 1 0186 

60 CONTINUE 0186 

IF( IDIG.NE. 1 ) GO TO 70 0186 

NDIG1 = 1 0186 

IFDIG1 = I 0186 

GO TO 100 0186 


» 

i 


0 1 86 

STRING (FIRST NON-BLANK CHARACTER0 187 
_ ^ A SIGN, A DtCIMAL POINT NOR A DIGIT), MARK POSITION OF 0187 

THE FIRST CHARACTER AND SCAN FROM THE END TO FIND THE LAST NON-BLANK 
CHARACTER. PASS THESE RESULTS BACK TO THE CALLING ROUTINE. 


APPARENTLY, 
WAS NEITHER 


70 


80 


IFIRST 
ITYPE : 
J = 81 
d = d ■ 
ILAST : 


= I 
3 


1 

d 


IF(d.EQ. I ) GO TO 900 
ICHAR = IRSPNS(d) 

IF( ICHAR.EQ. IBLANK) GO TO 80 
GO TO 900 
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0188 
0186 
0188 
0188 
C188 


AT THIS POINT, 
COULD STILL BE 


AN INITIAL DIGIT HAS BEEN FOUND, BUT 
EITHER INTEGER OR FLOATING POINT (OR 


0188 
0188 

THE USER RESPONSE0188 
UNRECOGNIZABLE). 0188 


CONTINUE SCANNING THE RESPONSE UNTIL A DISCRIMINATION CAN BE MADE 


.00 


TO 

I) 


120 


110 


IDIG = 0 
1 = 1+1 
IFd.GT.80) GO 
ICHAR = IRSPNSi 
DO 110 d=1 , 10 

IF( ICHAR. EQ.NUM(d) ) IDIG = 1 
CONTINUE 

IF( IDIG.NE . 1 ) GO TO 120 


NEXT CHARACTER WAS A DIGIT - UPDATE STATUS FLAGS AND CONTINUE SCAN 


NDIG1 = NDIG1 
ILDIG1 = I 
GO TO 100 


+ 1 


NEXT CHARACTER WAS NOT A DIGIT. CHECK FOR A DECIMAL 
IMPLIES USER RESPONSE IS A FLOATING POINT NUMBER, IN 


POINT 

WHICH 


IF 
CASE 


OFF TO SCAN FOR DIGITS TO THE RIGHT OF THE DECIMAL POliinFRACTIONA^^ 


0188 
0189 
0189 
0189 
0189 
0189 
0189 
0189 
0189 
0189 

0189 

0190 
0190 
019C 
0190 
0190 
0190 

FOUND0190 

BRANC0190 


120 


IF( ICHAR. NE. IPOINT 
IDECPT = 1 
LDECPT = I 
ILDIG1 = I 
IFDIG2 = I 
ITYPE = 1 
GO TO 200 


GO TO 130 


- 1 
+ 1 


CHARACTER WAS 
BLANK (INTEGER 
INTEGER VALUE: 


NOT A DIGIT 
TERMINATOR 


OR A DECIMAL 
- IF SO. WE 


POINT. 
CAN NOW 


IF NOT. RESPONSE IS UNRECOGNIZABLE. 


0190 

0190 

0191 
0191 
0191 
0191 
0191 
0191 
0191 
0191 

CHECK TO SEE IF IT WAS0191 
BRANCH OFF AND DECODE 0191 


130 


IFdCHAR.NE.IBlANK 
ILDIG1 =1-1 


GO TO 140 


140 


ITYPE 
GO TO 
ITYPE 
GO TO 


= 0 
300 
= 6 
900 


77 


0192 

0192 

0192 

0192 

0192 

0192 

0192 

0192 

0192 
■0192 

0193 








THE DECIMAL POINT IN A FLOATING POINT NUMBER 


200 


TO 
II ) 


THIS SECTION OF LOGIC IS ENTERED TO FIND ANY DIGITS TO THE RIGHT OF 0193 

0193 
0193 
0193 
0193 
0193 
0193 
0193 

0193 
01^4 

0194 
0194 
0194 
0194 
0194 

WAS NOT A DIGIT - CHECK FOR A BLANK (FLOATING POINT TERMINA0194 
BRANCH OFF TO DECODE THE FLOATING POINT VALUE; IF NOT, RESP0194 


210 


IDIG = 0 
1 = 1 + 1 
IFd.GT.80) GO 
ICHAR = IRSPNS 
DO 210 J=1 . 10 
IF ( ICHAR. E0.NUM(d 
CONTINUE 

IF( IDI6.NE. 1 ) GO TO 
NDIG2 = NDIG2 + 1 
ILDIG2 = I 
GO TO 200 


300 


) IDIG = I 
220 


CHARACTER 
IF FOUND, 

IS UNRECOGNIZABLE 


220 IF( ICHAR. NE. IBLANK) GO TO 240 

TERMINATING BLANK CHARACTER WAS FOUND 
NOT CONSIST SIMPLY OF A DECIMAL POINT 


CHECK TO 

:no digits 


MAKE SURE 
ON EITHER 


RESPONSE 

SIDE) 


240 


IF( (NDIG1 .EQ.O) .AND. (NDIG2.EQ.0) ) GO TO 240 

ITYPE = 1 

ILDIG2 =1-1 

GO TO 300 

ITYPE = 6 

GO TO 900 


THIS SECTION OF LOGIC DECODES THE VALUE OF A FLOATING POINT OR IN'. 
NUMBER FROM THE INDIVIDUAL DIGITS AND THE ORDER IN WHICH THEY OCCU 

300 IFdDECPT.EQ.I ) GO TO 400 
ITYPE = 0 

IFINDIG1 .LE.5) GO TO 310 
WRITE(6,6001 ) 

6001 FORMATI5X, 17HINTEGER TOO LARGE) 

ITYPE = 6 
GO TO 900 

INTEGER DECODE LOGIC 


0194 

0194 

0195 
0195 

D0195 
0195 
Cl 95 
0195 
0195 
0195 
0195 

0195 

0196 
0196 

---0196 
0196 
GE0 196 
d 0196 
0196 
0196 
0196 

0196 

0197 
0197 
0197 
0197 
0197 
0197 


310 DO 320 J=IFDIG1 . ILDIG1 
ICHAR = IRSPNS(J) 

DO 320 K=1 , 10 

IF( ICHAR. NE.NUM(K) ) GO TO 320 
IVALUE = IVALUE + 10 + K - 1 
320 CONTINUE 

IVALUE = ISIGN * IVALUE 
GO fO 900 

FLOATING POINT DECODE LOGIC (USES INTEGER DECODE LOGIC TO 
OBTAIN VALUES OF LEFT AND RIGHT-HAND "INTEGERS") 

400 ITYPE = 1 

IF(NDIG1 .EQ.O) GO TO 450 
DO 420 J=IFDIG1,IL0IG1 
ICHAR s IRSPNS(J) 


0197 

0197 

0197 

0197 

0198 
0198 
0198 
0198 
0198 
0198 
C 98 
0i98 
0198 

0198 

0199 
0199 
0199 








. ^ 



DO 420 K=1 , 10 0199 

IF( ICHAR.NE.NUM(K)) GO TO 420 0199 

IVALUE = IVALUE ♦ 10 ♦ K - 1 0199 

420 CONTINUE ' 0199 

VALUE 1 = IVALUE 0199 

IVALUE = 0 0199 

0199 

450 IF :nDIG2.EQ.O) GO TO 500 0200 

DO 460 d=IFUIG2,ILDIG2 0200 

ICHAR = IRSPNS(J) 0200 

DO 460 K=1 , 10 n2C0 

IF( ICHAR. NE.NUM(K) ) GO TO 460 0200 

IVALUE = IVALUE * 10 + K - 1 0200 

460 CONTINUE 0200 

VALUE2 = IVALUE 0200 

0200 

500 FVALUE = VALUE 1 + VALUE2 / (10»*NDIG2) 0200 

FVALUE = ISIGN * FVALUE 0201 

0201 

CHECK THAT RESPONSE IS APPROPRIATE - IF NOT, USER MUST RE-INPUT 0201 

0201 

900 IF( ITYPE.EQ. IDESIR) RETURN 0201 

0201 

===PUT IN DESCRIPTIVE MESSAGES TO ALERT USER=== 0201 

0201 

GO TO 1 0201 

END 0201 

SUBROUTINE ORBTR 0202 

0202 

• 4 . 0202 

SHUTTLE ORBITER BLOCK DATA * 0202 

* * 0202 

0202 

THIS ROUTINE SETS UP THE STS ORBITER GONF IGURATION BY DEFINING 0202 

GEOMETRIC SURFACES, THEIR IDENTIFICATION NUMBERS, LOCATION, MATERIAL0202 

AND AREA. 0203 

IDcNT s SURFACE IDENTIFICATION NUMBER (1-999) 0203 

SECT s ORBITER/SPACELAB GEOMETRIC SUBSECTION 0203 

RADOORs RADIATOR DOOR 0203 

BAY = PAYLOAD BAY LINER. SIDE STRIPS. BULKHEADS 0203 

TAIL = TAILFIN 0203 

CREW = NOSE, CREW SECTION 0203 

WING = WINGS 0203 

FUSLAG= FUSELAGE 0203 

OMS = OMS PODS 0203 

FILTER =OVERBOARD/INBOARO FILTERS 0204 

MATRL = SURFACE MATERIAL 0204 

LINER = PAYLOAD BAY LINER 0204 

BlKHED= fore and aft BAY BULKHEADS 0204 

TEFLON= TEFLON 0204 

LRSI = LOW TEMP RSI 0204 

HRSI = HIGH TEMP RSI 0204 

NOMEX = PAINTED FELT 0204 

RCC = CARBON 0204 

CRACKS= LEAKING SURFACE 0204* 

WINDOW:: CABIN WINDOWS 0205 

FILI = INBOARD FILTERS 0205 

FILO = OVERBOARD FILTERS 0205 

AREa s SURFACE AREA IN SQUARE INCHES 0205 

0205 


( 

9 




i 

i 


79 


COMMON 

/CNTRL/ 

ORBITR, PAYLOD, 

OUT, 

ED, 

LEAK, 

PLUME. 

+ 


MCD, DIRECT, 

RFAS2, 

RFSS, 

REFLCT, 

NRFLCT. 



NEWCON, NTAPE4, 

NEWTCD, 

NEWTNL, 

NEWMFS, 

NEWMFP, 

+ 


MINTMP, MAXTMP, 

ATCODE, 

R41DEP, 

GO, 

REPORT(70) 

COMMON/CONFIG/ 

SURFSC(300), SSURFS(300) 

, PNTSC(50), 

NEWPL(50) 



0NTIME(50), RECEVR(25) 

I 

ICCODE, 

F0VANG(25) 

•f 


SERIES. 

NEWDAT, 

ADSURF, 

NNEWPL 

+ 


JTOTAL, 

KTOTAL 


NORBPL, 

I SURF (300) 

+ 


ISSURF(300) 





COMMON/CHANGE/ 

CHNGES, CHNGEK, 

CHNGEP. 

CHNGPL 



COMMON 

/RATES/ 

RATE(25, 10) , TAL 

i(25, 10) , 

TSTART 

(3) , TST0P(3) , 



AGECRB, AGEPLD, 

MOUT 1 , 

M0UT2, 

MED1 , 

MED2, 

+ 


Ml, M2, 

AMBWT, 

AMBDIA, 

TSTARR, 

MACH , 



TIMEOO 





COMMON 

/ORBIT/ 

ALT, VA, 

PITCH, 

YAW, 

ROLL, 

SUNL, 



SUNM, SUNH 





COMMON 

/GEOM/ 

XORGIN, YORGIN, 

ZORGIN, 

X0(25) , 

Y0(25) . 

Z0(25) , 

+ 


ALPHA(25) , 

BETA(25) 

1 

GAMMA (25) 


ThETAI (25) , 
PHI2(25) , 
RMAX, 


COMMON /INTEG/THETAU25) , PHILI25) 

+ DTHETA(25), PHIK25) 

+ DOMEGA(25), DS(25). 

+ NPHI 

COMMON /TEMPS/ TEMP (2000) 

COMMON/PLUMES/ PLUMEC( 10,25) , SPECMF(10,25: 

+ C2LOC(50), CTHETA(50), 

+ CIDENT(50) 

COMMON/MOLEC/ MOLWT(IO), DIA(IO) 

COMMON /SURFS/IDENT(300) , AREAOOO) 
COMMON/CHAR/ITITLE(72) , IRSPNS(80). NEWNAM(6: 
+ KINDS(25), PLACEOO), SPECIEdOi 

+ MATRU300), NAMEPL, CLOC(50: 

+ NPLUME(25) 

COMMON/CHFLaG/ CHATT, 

+ CHTIM, 


THETA2(25) , 
DPHI (25) , 
NTHETA, 


CXLOCi 

CPHd 


50 

5o: 


CYLOC(50) 


COMMON/ 1, OX/ 


CHALT, CHVEL, CHSUN, 
CHAGE, CHINDX. CHWT , 
CHVIEW(25), CHRATE(25, 10) , 

CHPLUM( 10,25) , CHMF(10.25) 
INDXSP(25), INDXK(25), INDXP 
+ INDXJT, INDXKT 

COMMCN/NUCON/NUSECT(6,300) , NUMATL ( 6 , 300 ) , NULOC 
+ NUTYPE(6,50) , NUSPEC(6, 10) , NUKIND 

+ NUPLAC(6,30) , NUNPLM(6,25) 

RFU ONTIME, MACH, MOl.WT 


LTYPE(25) , 
SECT(300) , 
CTYPE(50) , 

CHDS,CHORIG, 

CHOI A, CHL0C(25), 


CHTAU(25, 10 
30), INDXPL(25: 


6.50 

6,25: 


INTEGER 

SURFSC, 

SSURFS, 

PNTSC, 

RECEVR, 

ITITLE, 

LTYPE, 

KINDS, 

•f 

PLACE, 

SPECIE. 

SECT, 

MATRL , 

ATCODE, 

SERIES, 

CIDENT, 


CLOC, 

CTYPE, 

CHNGES. 

CHNGEK , 

CHNGEP, 

CHNGPL 


LOGICAL 

ORBITR, 

PAYLOD, 

OUT, 

ED. 

LEAK, 

PLUME. 

MCD, 

+ 

DIRECT, 

RFAS2, 

RFSS. 

REFLCT, 

NEWCON, 

NTAPE4, 

NEWTCD, 

+ 

NEWTNL, 

NEWMFS, 

NEWMFP, 

MINTMP, 

MAXTMP, 

REPORT, 

GO, 


NEWPL, 

SUNL, 

SUNM, 

SUNH, 

R41DEP, 

NEWDAT, 

ADSURF, 


CHATT. 

CHALT, 

CHVEL, 

CHSUN, 

CHDS, 

CHORIG, 

CHLOC, 


CHVIEW, 

CHTIM, 

CHRATE. 

CHTAU, 

CHAGE, 

CHPLUM, 

CHMF, 

+ 

CHINDX, 

CHWT, 

CHDIA, 

INDXSP, 

INDXK, 

INDXP, 

INDXPL 

rs = = i: = = = r 

II 

II 

II 

U 

If 

II 

H 

II 

II 

II 

II 

II 

11 

II 

II 



It 

f! 

II 

II 

II 

II 

II 

II 

II 

11 

II 

M 

II 

II 

II 



DIMENSION I0RB1 ( 190) , I0RB2( 190) , IORB3( 190) ,X0RB4( 190) 

*** CURRENTLY THERE ARE 190 SURFACES USED IN THE ORBITER MODEL 
DATA (I0RB1(I),I=1,100) 80 


0205 

0205 

0205 

0205 

0206 
,0206 
.0206 
.0206 
,0206 

0206 

0206 

0206 

0206 

0206 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 

0207 
.0208 

0208 
0208 
0208 
0208 
0208 
0208 
0208 
0208 
0208 
0209 
0209 
0209 
0209 
0209 
0209 
0209 
0209 
0209 

0209 

0210 
0210 
0210 
0210 
0210 
0210 
0210 
0210 
0210 
0210 
0211 

^=021 1 
0211 
0211 
0211 
0211 
0211 


w _ 

Q < 

Cl c- 

=! a 
? O 
ii O 
O 0 . 

O o 


2 

3 

4 

5 

6 
7 


20. 

44, 

22, 

46, 

24. 

50, 

26, 

52, 

30, 

54. 

32, 

56, 

34. 
21 , 

31, 

33, 

35. 

37, 

41 , 

43, 

45, 

55 , 

57, 

202, 

203, 

230. 

240, 

241 , 

305, 

306, 

307, 

311 , 

315, 

316, 

317, 

62, 

64, 

66, 

67, 

68, 

70, 

72, 

80 , 

82. 

84, 

86, 

87, 

88, 

90, 

97. 

100, 

102, 

104, 

110, 

1 12, 

1 15, 

121, 

122, 

130, 

132, 

134, 

140, 

142, 

149, 

151 , 

152, 

106, 

107. 

136, 

137, 

1 (lORBKl 

) , I = 1( 

31 . 190) 


453. 

454, 

455, 

456, 

457. 

458, 

459, 

463, 

464, 

465, 

466, 

467, 

468, 

469, 

163, 

164, 

165, 

166 , 

167, 

168, 

169, 

174, 

175, 

177, 

180, 

181 , 

182, 

183, 

380, 

381 , 

382, 

383, 

384, 

385, 

386, 

390, 

391 , 

392, 

393, 

399, 

J 

1 , 

2, 

6, 

7, 

8. 

11, 

13, 

440, 

441 , 

446, 

447. 

448, 

570, 

571 , 

572, 

573, 

583, 

575, 

576, 

577, 

578, 

585, 

586, 


36, 40, 42, 

23, 25, 27, 

47, 51, 53, 

250, 260, 301, 
420, 425, 60, 

74, 76, 77, 

92, 94, 96, 

117, 118, 119, 
145, 147, 148, 
450, 451, 452 / 


460, 461, 
160, 161, 
170, 171, 
184. 185. 
387, 388, 
3. 4, 

442, 443, 
580, 581, 
587, 588, 


462, 

162, 

172, 

190, 

389. 

5, 
445, 
582, 
13 / 


data (I0RB2(I) ,1=1,50) 

1 / 6HRAD00R, 6HRAD00R, 6HRAD00R, 

2 6HRADOOR, 6HRAD00R , 6HRAD00R, 

3 6HRADOOR, 6HRAD00R, 6HRAD00R, 

4 6HRAD00R, 6HFU6LAG, 6HFUSLAG, 


6HFUSLAG. 6HFUSLAG, 6HFUSLAG, 

6 6HFUSLAG. 6HFUSLAG, 6HFUSLAG, 

7 6HFUSLAG, 6HFUSLAG, 6HFUSLAG, 

8 6HFUSLAG, 6HFUSLAG, 6HFUSLAG, 

9 6hFUSLAG, 6HFUSLAG, 6HFUSLAG, 

^ 6HFUSLAG, 6HFUSLAG, 6HFUSLAG, 

data ( I0RB2I I ) , 1=51 , 100) 

1 / 6H OMS, 6H QMS, 6H 

2 6H QMS, 6H 

6H 
6H 


6HRAD00R, 

6HRAD00R, 

6HRAD00R, 

6HFUSLAG. 

6HFUSLAG, 

6HFUSLAG, 

6HFUSLAG, 

6HFUSLAG, 

6HFUSLAG, 

6HFUSLAG, 


6HRAD00R, 
6HRAD00R, 
6HRAD00R, 
6HFUSLAG, 
6HFUSLAG, 
6HFUSLAG, 
6HF"SLAG, 
6HFUSLAG, 
6HFUSLAG, 
6h QMS / 


QMS, 6H 
OMS, 6H 
OMS, 6H 


3 6H OMS, 

4 6H OMS, 

5 6H QMS. 

6 6H WING, 

7 6H WING, 

8 6H WING, 

9 6H WING, bH WING, 6H WING, 6HELEV0N 6HELEVON 

*>HE1.EV0n'/ 


OMS, 

6H 

OMS, 

6H 

OMS, 

6H 

OMS, 

6H 

OMS, 

6H 

OMS, 

6H 

OMS, 

6H 

OMS, 

6H 

WING, 

6H 

WING, 

6H 

WING, 

6H 

WING, 

6H 

WING, 

6H 

WING, 

6H 

WING, 

6H 

WING, 

6H 


OMS, 

OMS, 

OMS, 

OMS, 


1 / 6HELEV0N, 6HELEV0N, 6HELEV0N 

2 6HELEV0N, 6HELEV0N, 6HELEV0N, 

3 6HELEV0N, 6HELEV0N, 6HELEV0N, 

4 6HELEV0N, 6HELEV0N, 6H CREW, 


5 

6H 

CREW, 

6H 

CREW, 

6 

6H 

CREW, 

6H 

CREW, 

7 

6H 

CREW, 

6H 

CREW, 

8 

6H 

CREW, 

6H 

CREW, 

9 

6H 

TAIL, 

6H 

TAIL. 


6H 

TAIL, 

6H 

TAIL. 

data (I0RB2(I 

).I = 

151 , 190 

1 

/ H 

TAIL, 

6H 

TAIL, 

n 

4. 

6H 

BAY, 

6H 

BAY, 

3 

6H 

BAY, 

6H 

BAY, 

4 

6H 

BAY. 

6H 

BAY, 1 

5 

6H 

BAY, 

6H 

BAY. 1 

6 

6HF 

ILTER, 

6HFILTER. I 

7 

6HFILTER, 

6HF 

ILTER, 1 


BAY, 

BAY. 

BAY, 

BAY, 


6HELEV0N, 
6HELEV0N, 
6HELEV0N, 
6H CREW, 
6H CREW, 
6H CREW, 
6H CREW, 
6H CREW, 
6H TAIL. 
6H TAIL, 

6H TAIL, 
6H BAY, 
6H BAY, 
6H BAY, 
6HFILTER, 
6HFILTER, 
6HFILTER, 


6HELEV0N, 
6HELEV0N, 
6HELEVON, 
6H CREW, 
6H CREW, 
6H CREW. 
6H CREW. 
6H CREW, 
6H TAIL, 
6H TAIL / 

6H TAIL 
6H BAY, 
6H BAY. 
6H BAY, 
6HFILTER, 
6HFILTER, 
6HFILTER, 


0211 
0211 
021 1 
0212 
0212 
0212 
0212 
0212 
0212 
0212 
0212 
0212 
0212 
0213 
0213 
0213 
0213 
0213 
0213 
0213 
0213 
0213 

0213 

0214 
0214 
0214 
0214 
0214 
0214 
0214 
0214 
0214 

0214 

0215 
0215 
0215 
0215 
0215 
0215 
0215 
0215 
0215 

0215 

0216 
0216 
0216 
0216 
0216 
0216 
0216 
0216 
0216 
0216 
021 ? 
0217 
0217 
0217 
0217 
0217 
0217 
0217 
0217 


CM 00 <1- ID CD 00 O) * ^ CM 00 ^ LD CD 00 CD * ^ CM 00 ^ ID CD 00 ^ CM OO ^ LD CD CO 0> * CM OO •dT ID 


8 6HFILTER, 6HFILTER, 6HFILTER, 6HFILTER, 6H BAYL / 


DATA (IORB3(I),I=1,50: 


1 / 6HTEFL0N, 

2 6HTEFL0N, 

3 6HTEFL0N, 


6HTEFL0N, 

6HTEFL0N, 

6HTEFL0N, 


6HTEFL0N 

6HTEFL0N 

6HTEFL0N 


4 

6HTEFL0N, 

6H 

LRSI, 

6H 

LRSI , 

6H 

LRSI, 

6H 

LRSI, 

0218 

5 

6ri 

LRSI, 

6H 

LRSI, 

6H 

LRSI , 

6H 

LRSI , 

6H 

LRSI . 

0218 

6 

6H 

LRSI, 

6H 

LRSI, 

6H 

LRSI , 

6H 

LRSI, 

6H 

LRS: . 

0218 

7 

6H 

LRSI, 

6H 

LRSI, 

6H 

LRSI , 

6H 

LRSI, 

6H 

LRSI, 

0218 

8 

6H 

LRSI, 

6H 

LRSI, 

6H 

LRSI , 

6H 

LRSI , 

6H 

LRSI, 

0218 

9 

6H 

LRSI, 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

LRSI , 

6H 

LRSI , 

0219 


6H 

NOMEX, 

6H 

NOMEX, 

6H 

LRSI, 

6H 

LRSI , 

6H 

LRSI / 

0219 


DATA (I0RB3(I) ,1=51, 100: 

1 


DATA 


DATA 


6HTEFL0N 

6HTEFL0N 

6HTEFL0N 


DATA 

/ 


6H 

LRSI. 

6H 

LRSI, 

6H 

LRSI, 

6H 

LRSI, 

6H 

LRSI, 

0219 

6H 

LRSI, 

6H 

LRSI, 

6H 

LRSI , 

6H 

LRSI, 

6H 

LRSI , 

0219 

6H 

LRSI, 

6H 

LRSI, 

6H 

LRSI, 

6H 

LRSI , 

bH 

LRSI, 

0219 

6H 

LRSI , 

6H 

LRSI, 

6H 

LRSI, 

6H 

LRSI , 

6H 

LRSI. 

0219 

6H 

LRSI. 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

NOMEX. 

6H 

NOMEX, 

0219 

6H 

NOMEX, 

6H 

LRSI, 

6H 

HRSI , 

6H 

HRSI, 

6H 

LRSI , 

0219 

6H 

RCC, 

6H 

RCC, 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

NOMEX, 

0219 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

LRSI , 

6H 

HRSI , 

6H 

HRSI, 

0220 

6H 

LRSI . 

6H 

RCC, 

6H 

RCC, 

6H 

NOMEX, 

6H 

NOMEX, 

0220 

6H 

NOMEX, 

6H 

NOMEX. 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

NOMEX / 

0220 

(I0RB3(I 

).I = 

M01 , 150) 






0220 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

NOMEX, 

0220 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

NOMEX. 

0220 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

NOMEX, 

0220 

6H 

NOMEX, 

6H 

NOMEX, 

6H 

RCC, 

6H 

LRSI, 

6H 

LRSI . 

0220 

6H 

LRSI, 

6H 

LRSI, 

6H 

LRSI , 

6H 

LRSI , 

6H 

HRSI. 

0220 

6H 

HRSI . 

6H 

HRSI . 

6H 

HRSI , 

6H 

HRSI , 

6H 

HRSI , 

0220 

6H 

LRSI , 

6H 

LRSI, 

6H 

LRSI, 

6HWIND0W, 

6HWIND0W, 

0221 

6HWIND0W, 

6HWIND0W, 

6HWIND0W, 

6HWIND0W, 

6H 

LRSI. 

0221 

6H 

LRSI, 

6H 

LRSI , 

6H 

LRSI . 

6H 

LRSI . 

6H 

LRSI, 

0221 

6H 

LRSI, 

6H 

LRSI, 

6H 

LRSI, 

6H 

LRSI, 

6H 

LRSI / 

0221 

, ( 

I0RB3I I 

).I = 

=151 . 19^) 






0221 

6H 

LRSI. 

6H 

LRSI, 

6H 

LRSI , 

6H 

LRSI , 

6H 

HRSI, 

0221 

6H 

LINER, 

6H 

LINER, 

6H 

LINER, 

6H 

LINER, 

6H 

LINER, 

0221 

6H 

LINER, 

6H 

LINER, 

6H 

LINER, 

6HBLKHED, 

6HBLKHED, 

0221 

6H 

LINER, 

6H 

LINER, 

6H 

LINER, 

6H 

LINER, 

6H 

LINER, 

0221 

P!i 

liner. 

6H 

L iNER, 

6H 

LINER, 

6H 

FILI, 

6H 

FILI, 

0221 

6H 

FILI , 

6H 

FILI, 

6H 

FILI , 

6H 

FILI, 

6H 

FILI, 

0222 

6H 

FILI, 

6ri 

FILO, 

6H 

FILO, 

6H 

FILO, 

6H 

FILO. 

0222 

6H 

FILO, 

6H 

FILO, 

6H 

FILO, 

6H 

FILO, 

6HCRACKS / 

0222 











0222 

, (X0RB4(I 

) .1 = 

=1,50) 







0222 


6HTEFL0N, 

6HTEFL0N, 

6HTEFL0N, 


DATA 

/ 


0217 

0218 
0218 
0218 
0218 
0218 


0219 


12200. , 

12200. . 

12200. , 

12200. , 

12200. , 

0222 

12200. , 

12200. , 

12200. , 

25580, , 

25580. , 

0222 

25580. , 

25580. , 

25580. , 

25580. , 

25580. , 

0222 

25580. . 

12200. , 

12200. , 

12200. , 

12200. . 

0222 

12200. , 

12200. , 

12200. , 

12200. , 

25580. , 

0222 

25580. , 

25580. , 

25580. , 

25580. , 

25580. , 

0223 

25580. , 

25580. , 

32520. , 

32520. , 

25730. . 

0223 

16340. , 

16340. , 

19580. , 

20240. . 

26600. , 

0223 

30930. , 

30930. , 

24770. . 

26600. , 

30930. , 

0223 

30930. , 

24770. . 

1312. , 

1312. , 

1145. / 

0223 

(X0RB4(I), 1=51, 100) 




0223 

7850. . 

37920. , 

1991 . , 

2028. , 

415. , 

0223 

895. , 

1406. , 

1312. , 

715. , 

600. , 

022 a 

1145. , 

7813. , 

37740. , 

1991 . , 

2028. , 

0223 

415. , 

895. , 

1406. , 

1312. , 

715. , 

0223 

601 . , 

6356. , 

29590. , 

82 9125., 

23340. , 

0224 



6 

19280. 

19280. , 

7 

2251. 

3123. , 

8 

23340. 

19280. , 

9 

3302. , 

2251 . , 

* 

6499. , 

9125. , 

DATA 

(X0RB4I 

I). 1 = 101, 150 

1 / 

960. , 

1246. , 

2 

2353. , 

2630. , 

3 

969. , 

1246. , 

4 

2353. , 

2630. , 

5 

3380. , 

3380. , 

6 

12590. , 

9600. , 

7 

20720. , 

10150. , 

8 

1424. , 

1424. , 

9 

16920. , 

16920. , 

♦ 

13940. , 

6116. , 

DATA 

(X0RB4( 

I ) , 1=151 , 190 

1 / 

1160. , 

1160., 

2 

26620. . 

26620. . 

3 

26620. , 

26620. . 

4 

3444. . 

3444. , 

5 

3444. , 

3444. , 

6 

207. , 

207. , 

7 

207. , 

144. , 

8 

144. , 

144. , 


5650 . , 

2508 . , 

3302 . 

f 

6356 . , 

29590 . , 

9125 . 


19280 . , 

5650 . , 

2508 . 


3123 . , 

6499 . , 

17210 . 


138 . , 

415 . , 

692 . 

/ 

t 

1523 . , 

1800 . , 

2076 . 


138 . , 

415 . , 

692 . 


1523 . , 

1800 . , 

2076 . 


7191 . , 

9348 . , 

9348 . 


4253 . , 

4253 . , 

12590 . 


9600 . , 

3705 . , 

3705 . 


10150 . , 

1424 . , 

1424 . 


1424 . , 

1424 . , 

10250 . 


8833 . , 

8833 . , 

13940 . 


6116 . , 

2744 . , 

2744 . 

/ 

3081 . , 

3081 . , 

3823 . . 


26620 . , 

26620 . , 

26620 . . 


26620 . , 

32690 . . 

32690 . , 


3444 . , 

3444 . , 

3444 . , 


3444 . , 

207 . , 

207 . , 


207 . , 

207 . , 

207 . 


144 . , 

144 . , 

144 . , 


144 . , 

144 . , 

32690 . 

/ 


LOAD ALL OF THE ABOVE ORBITER DATA INTO THE PROPER ARRAYS 


II = 0 


DO 40 1=1 , 190 
II = II + 1 
IDENT(II) = lORBt(I) 

SECT(II) = I0RB2(I) 

MATRL(II) = IOR83(I) 

AREA( II ) = X0RB4I I ) 

IF(MATRL( II ) .NE.6HCRACKS) GO TO 30 
IF (LEAK) GO TO 30 
II = II - 1 
GO TO 35 
30 CONTINUE 

IF( (SECTdl ) .NE.6H BAY) .AND. (SECT(II) . NE . 
+ (SECT( II ) .NE.6HFILTER) ) GO TO 35 
IF(PAYLOD) II = II - 1 
35 CONTINUE 
40 CONTINUE 


6H 


BAYL) .AND. 


JTOTAL = II 

DO 100 I=1,JTOTAL 
SSURFS(I) = IDENT(I) 
100 SURFSCI I ) = IDENTI I ) 
RETURN 
END 

SUBROUTINE LMOPX 


oRiGiN/.L r v 

OF POOR QUALITY 


♦ ♦ 

♦LMOP BLOCK DATA* 

* * 


83 


0224 

0224 

0224 

0224 

0224 

0224 

0224 

0224 

0224 

0225 
0225 
0225 
0225 
0225 
0225 
0225 
0225 
0225 

0225 

0226 
0226 

' 0226 
0226 
0226 
0226 
0226 
0226 
0226 
0226 
0227 
0227 
0227 
0227 
0227 
0227 
0227 
0227 
0227 

0227 

0228 
0228 
0228 
0228 
0228 
0228 
0228 
0228 
0228 
0228 
0229 
0229 
0229 
0229 
0229 
0229 
0229 
0229 
0229 

0229 

0230 
0230 
0230 


RETURN 


END 

SUBROUTINE SMTPX 


ORiGiNAL U 

OF POOR QUALtTY 


* * 

♦SMTP BLOCK DATA* 

♦ * 


RETURN 

END 

SUBROUTINE FIVPX 


* 5»f 

♦FIVP BLOCK DATA=*= 

♦ * 


RETURN 

END 

SUBROUTINE P801X 


* ' * 
♦P801 BLOCK DATA* 

* * 


0230 
0230 
0230 
0230 
0230 
0230 

0230 

0231 
0231 
0231 
0231 
0231 
0231 
0231 
0231 
0231 

0231 

0232 
0232 
0232 
0232 
0232 
0232 
0232 
0232 
0232 

0232 

0233 
0233 
0233 
0233 
0233 
0233 
0233 
0233 
0233 

0233 

0234 
0234 
0234 
0234 
0234 
0234 
0234 
0234 
0234 

0234 

0235 

0^5 

COMMON /CNTRL/ ORBITS, P4YL00, OUT, EO, LE4K, PLUME wM 

* MCD, DIRECT, RFAS2, RESs! REFLCt! NRFLCT 0235 

+ M?l!52n' NEWTCD, NEWTNL, NEWMFS, NEWMFp! 0235 

MINTMP, MAX''’MP, ATCODE, R41DEP GO RFPOkT(7ni 

COMMON/CONFIG/ SURFSC(300), SSURFS(300), PNTSC(50) ’ SI 50 0235 

: ONTIME(50). RECEVR(25). ICCOOE. FOVANG(25) .3235 

I ADSURF, NNEWPL.0236 

ISSURR3MI’ 

COMMON/CHANGE/ CHNGES, CHNGEK, CHNGEP '"HNGPL n9QR 

COMMON /RATES/ RATE(25,10), TAU(25,10 g^fSTARTIS), TSTOPI3), 0236 


RETURN 

END 

SUBROUTINE DSPIUX 


* * ♦ 
* DSP/IUS BLOCK DATA * 


RETURN 

END 

SUBROUTINE INI' 


* PREPROCESSOR INITIALIZATION ♦ 


COMMON /ORBIT/ 


COMMON 


AGEORB, 
M1 , 
TIMEOO 
ORBIT/ ALT, 
SUNM, 
/GEOM/ XORGIN, 


AGEPLD, 

M2, 


MOUT1 , 
AMBWT, 

PITCH, 


MOUT2, 

AMBDIA, 


MED1 

TSTARR 


:OMMON 


VA, PITCH, 
SUNH 

YORGIN, ZORGIN, 
), BETAI25 

), PHIU25), 

), PHIK25), 

), DS(25). 


YAW, ROLL 


+ ALPHA(25), BET 

COMMON /INTEG/THETAL(25) , PHIL(2 
^ DTHETA(25), PHIK2 

^ DOMEGA(25), DS(2 

NPHI 

COMMON /TEMPS/ TEMP(2000) 
COMMON/PLUMES/ PLUMEC( 10 , 25 ) , SPEC 

CZL0CI50), C 
*■ CIDENT(50) 

COMMON/MOLEC/ MOLWT(IO), DIA(IO) 
COMMON /SURFS/IDENT(300) , AREAOOO 
C0MM0N/CHAR/ITITLE(72) , IRSPNS(BO) 
>• KINDSI25), PLACEI30) 

•• MATRL(300), NAMEPL 

NPLUMEI25) 

COMMON/CHFLAG/ CHATT, CHAI.T, CHV 
^ CHTIM, CHAGE, CHIN 


X0(25) , Y0(25) , Z0(25) 
), GAMMA (25) 

THETAK25), THETA2(25). 
PHI2(25), DPHK25), 
RMAX, NTHETA, 


MED2, 

MACH, 

SUNL, 

Z0(25) . 


SPECMF(10,25 

CTHETA(50 


CXLOC(50 
CPHI (50 


CYLOC(50) 


NEWNAM(6 

sPEciE( io: 

CLOC(50; 


CHAI.T, CHVEL, CHSUN, 
CHAGE, CHINDX, CHWT , 


LTYPE(25) , 
SECT ( 300 ) , 
CTYPE(50) , 

CHDS,CHORIG, 
CHDIA, CHLOC(25 


>■ CHVIEW(25) . CHRATE(25, 10) . CHTAU(25, 10) , 

^ CHPLUM( 10,25) , CHMF( 10,25) 

COMMON/INDX/ INDXSP(25), INDXK(25), INDXP(30), INDXPL(25 

^ INDXJT, . INDXKT 

COMMnN/NUCON/NUSECT(6,300) , NUMATL ( 6 , 300 ) , NNUL0C(6 50) 

^ NUTYPE(6,50) , NUSPEC(6, 10) , NUKIND(6,'25) ! 

' NUPLAC(6,30) , NUNPLM(6,25) 


REAL ONTIME, MACH, MOLWT 
INTEGER SURFSC, SSURFS, PNTSC 
PLACE, SPECIE, SECT, 
C1.0C, CTYPE, CHNGES, 
LOGICAL ORBITR, PAYLOD, OUT, 
DIRECT, RFAS2, RFSS, 
NEWTNL, NEWMFS, NEWMFP, 
NEWPL, SUNL, SUNM, 
CHATT, CHALT, CHVEL, 
CHVIEW, CHTIM, CHRATE , 
CHINDX, CHWT, CHDIA, 


RECEVR, 

MATRL, 

CHNGEK, 

ED, 

REFLCT, 

MINTMP, 

SUNH, 

CHSUN, 

CHTAU, 

INDXSP, 


ITITLE, 

ATCODE, 

CHNGEP, 

LEAK, 

NEWCON, 

MAXTMP, 

R41DEP, 

CHDS, 

CHAGE, 

INDXK, 


LTYPE, 

SERIES, 

CHNGPL 

PLUME, 

NTAPE4, 

REPORT, 

NEWDAT, 

CHORIG, 

CHPLUM, 

INDXP, 


KINDS, 

CIDENT, 

MCD, 

NEWTCD, 

GO, 

ADSURF, 

CHLOC, 

CHMF, 

INDXPL 


ORBITRr.TRUE, 
PAYLOD=. FALSE. 
OUr=.TRUE. 

ED=. FALSE. 
LEAKS. FALSE. 
PLUMES. FALSE. 
MCDs.TRUE. 
DIRECTS. false. 
RFAS2s. FALSE. 
RFSSs FALSE. 
REFLCTs .FALSE , 

NRFLCTsi 
NEWCONs .FALSE. 
NTAPE4S. FALSE. 
NEWTCDs. FALSE. 
NEWTNI.S. FALSE. 
NEWMFS*. FALSE. 


OF POOi^ 




NEWMFPs. FALSE. 
MINTMP=. FALSE. 
MAXTMP=.TRUE. 
ATCODE=0 

DO 100 1=1,300 
SURFSC(I)=0 
SSURFS(I)=0 
ISURF(I)=0 
ISSURFi I )=0 
100 CONTINUE 

DO 110 1=1,50 
PNTSC!I)=0 
NEWPL( I )=.FALSE. 
ONTIME(I)=0.0 
110 CONTINUE 

DO 120 1=1,25 
RECEVR( I )=0 
FOVANG(I)=180. 
120 CONTINUE 
ICCODE=0 
SERIES=1000 


ORIGINAL PAC’i & 
OF I^OR QUALHT 


CHNGES=0 
CHNGEK=0 
CHNGEP=0 
CHNGPL=0 
MACH=1 .0 

ALT=400. 

SUNL=. FALSE. 

SUNM=.TRUE. 

SUNH=. FALSE. 

VA=7650. 

PITCH=0. 

YAW=0. 

R0LL=0. 

DO 150 1=1,25 
X0( I )=1 107. 

Y0( I )=0. 

Z0(I)=507. 

ALPHA! I )=0. 

BETA(I)=0. 

GAMMAd )=0. 

THETA1(I)=C. 

THETA2(I)=10.24 

PHIim=0. 

PHI2(I)=360. 

DTHETA(I)=10.24 

DPHim=45. 

150 CONTINUE 

THETALI 1 )=0.0 
DO 160 1=1,8 
11 = 1+1 
12=1+9 
13=1+17 

THETALin )=30. 

THETAL! I2)=60. 

THETAL! I3)=82.5 

160 CONTINUE 86 

PHILd )=0.0 
DO 170 1=1,3 


0242 

0242 

0242 

0243 
0243 
0243 
0243 
0243 
0243 
0243 
0243 
0243 

0243 

0244 
0244 
0244 
0244 
0244 
0244 
0244 
0244 
0244 

0244 

0245 
0245 
0245 
0245 
0245 
0245 
0245 
0245 
0245 

0245 

0246 
0246 
0246 
0246 
0246 
0246 
0246 
0246 
0246 

0246 

0247 
0247 
0247 
0247 
0247 
0247 
0247 
0247 
0247 

0247 

0248 
0248 
0248 
0248 
0248 
0248 
0248 
0248 
0248 








11 = 2 + 8 (I - 1) 

12 = 3 + 8 ♦ (I - 1) 

13 = 4 + 8 ♦ (I - 1) 

14 = 5 + 8=^ (I - 1 ) 

15 = 6 + 8* (I - 1 ) 

16 = 7 + 8 * (I - i) 

17 = 8 + 8* (I - 1 ) 

18=9+8* (I - 1) 
PHIL(I1)=0,0 
PHIL(I2)=45.0 
PHIL(I3)=90.0 
PHIL(I4)=135.0 
PHIL(I5)=180.0 
PHIL(I6)=225.0 
PHIL(I7)=270.0 
PHIL(I8)=315.0 

170 CONTINUE 


OK 


RETURN 

END 

SUBROUTINE TEACH 


♦ PREPROCESSOR INSTRUCTIONS * 

********* * 


RETURN 

END 

SUBROUTINE MATLX 


* MATERIALS/SPECIES BLOCK DATA* 


RETURN 

END 

SUBROUTINE HLUMEX 


0248 

0249 
0249 
0249 
0249 
0249 
0249 
0249 
0249 
0249 

0249 

0250 
0250 
0250 
0250 
0250 
0250 
0250 
0250 
0250 

0250 

0251 
0251 
0251 
0251 
0251 
0251 
0251 
0251 
0251 

0251 

0252 
0252 
0252 
0252 
0252 
0252 
0252 
0252 
0252 

0252 

0253 


- 0 R B I T E R POINT SOURCE BLOCK D A T A || 

0253 


existing INFORMATION NEEDED TO EVALUATE 
SPACECRAFT^^^ SPECIES CAN BE TRACED IN THE CLOUD AROUND THE 


SPECIE, M 


ENG 

FIRINGS 


EVAP 

OPERATION 


1- OUTGAS1 

2- 0UTGAS2 

3- H20 

4- N2 


87 


.2901,326) 1.0 

.4201 .306) 


0253 

0253 

0254 
0254 
0254 
0254 
0254 
0254 
0254 
0254 
0254 

0254 

0255 








5- 

6 - 

7- 

8 - 
9- 

10 - 


C02 

02 

CO 

H2 

H 

MMHN03 


OF POOR 






.078( .036) 
.00K.001) 
. 184( . 134) 


.0171 

.OOK 

, 002 ( 


170) 

015) 

001 ) 


THIS ROUTINE SETS UP 
THEIR IDENTIFICATION 


CIDENT 

CLOC 

CTYPE 

CXLCC 

CYLOC 

CZLOC 

CTHETA 

CPHI 


ENGINE/VENT 
ENGINE/VEN 
SIX LETTER 
X LOCATION 
Y LOCATION 
Z LOCATION 
ORIENTATION 
ORIENTATION 


THE STS ORBITER CONFIGURATION BY DEFINING 
NUMBERS, LOCATION, AND ORIENTATION. 
IDENTIFICATION NUMBER ( 5000-5999 ) 

SIX LETTER CODE TO DEFINE LOCATION 
NAME TO DEFINE TYPE OF PROPULSION SYSTEM 
OF ENGINE/VENT IN ORBITER OR BASE COORDS. 


3ft 3(e 


sfe 9|e 4e 4c 

4; 4c 4: 3^ 4c 


NOTE 


0255 
0255 
0255 
0255 
0255 
0255 
0255 
0255 

0255 

0256 
0256 
0256 
0256 
0256 
0256 
0256 
0256 

0256 

THIS ROUTINE'S STRUCTURE IS NOT ANSI STANDARD FORTRAN IV0256 
IT SHOULD BE MODIFIED: PULL ALL DATA STATEMENTS FORWARD 0257 
OF ANY EXECUTABLE CODE AND SEPARATE MIXED MODE ASSIGNMEN0257 
INTO .SEPARATE DATA STATEMENTS. 0257 

0257 

============================================r===========0257 

0257 
0257 
0257 
0257 
0257 
,0258 
,0258 
,0258 
,0258 


OF 

OF 


NOZZLE CENTERLINE OFF Z AXIS 
CENTERLINE FROM +X AXIS 


COMMON /CNTRL/ 


+ 

+ 

+ 


COMMON/CONFIG/ 


+ 

+ 


ORBITR, 

MCD, 
NEWCON, 
MINTMP, 
SURFSC(300) , 
ONTIME(50) , 
SERIES, 
JTOTAL, 


PAYLOD, 

DIRECT, 

NTAPE4, 

MAXTMP, 


OUT, 
RFAS2, 
NEWTCD, 
ATCODE, 
SSURFS( 300) , 
RECEVR(25) , 
NEWDAT, 
KTOTAL, 


ED, LEAK, 

RFSS, REFLCT, 
NEWTNL, NEWMFS, 
R41DEP, GO, 
, PNTSC(50), 

, ICCODE, 

ADSURF, 
NORBPL, 


PLUME, 

NRFLCT, 

NEWMFP, 

REPORT(70) 

NEWPL(50) 

FOVANG(25) 

NNEWPL 

ISURFOOO) 


+ 

ISSURF(300 

) 



0258 

COMMON/CHANGE/ CHNGES, CHNGEK, 

CHNGEP, 

CHNGPL 

0258 

COMMON 

/RATES/ RATE(25,10 

), TAU!25,10) 

, TSTART(3) , TST0P!3) , 

0258 

+ 

AGEORB, AGEPLD, 

M0UT1 . 

M0UT2. MED1, MED2, 

0258 

+ 

Ml , 

M2, 

AMBWT, 

AMBOIA, TSTARR, MACH, 

0258 


TIMEOO 




0258 

COMMON 

/ORBIT/ ALT, 

VA, 

PITCH, 

YAW, ROLL, SUNL, 

0259 


SUNM, 

SUNH 



0259 

COMMON 

/QEOM/ XORGIN, YORGIN, 

ZORGIN, 

X0!25), Y0(25), Z0(25), 

0259 

•f 

ALPHA! 25 ) , 


BETA!25 

), GAMMA (25) 

0259 

COMMON 

/INTEG/THETAL!25) , 

PHIH25) . 

THETAK25), THETA2!25). 

0259 


DTHETA!25) . 

PHI1 !25) . 

PHI2(25), DPHK25), 

0259 

+ 

OOMEGA!25) . 


DS!25) , 

RMAX, NTHETA. 

0259 

+ 

NPHI 




0259 

COMMON 

/TEMPS/ TEMP!2000) 




0259 


SPECMFI 10,251 
CTHETA(50I 


Oi 

3001 
801 , 
30) , 


COMMON/PLUMES/ PLUMECI 10,25 
+ CZL0CI50), 

+ CIDENTI50) 

COMMCN/MOLEC/ MOLWT(IO), DIA( 

COMMON /SURFS/IDENT(300) , AREA! 
C0MM0N/CHAR/ITITLE(72) , IRSPNSI 
KINDSI25), PLACE 

- MATRLI300) NA.^EPL, 

+ NPLUME(2.5) 

COMMON/CHFLAG/ CHATT. CHALT. 

+ CHTIM, CHAGE, 

+ CHVIEW125) . CHRATEI25, 10) , 

+ CHPLUM( 10,25) , CHMF( 25) 

COMMON/INDX/ INDXSPI25), INDXK(25 88-NDXP(30 


CXLQCISOl 

CPHK501 


CYL0C(50I 


NEWNAM(61 
SPECIE! 101 
CLOC(501 


CHVEL, 

CHINDX, 


CHSUN, 

CHWr, 


LTYPEI25), 

SECT (300), 
CTYPEI50), 

CHDS,CHORIG, 
CHDIA, CHLOC(25) 


CHTAU(25, 10) , 

INDXPL(25) 


.0259 

0260 

0260 

0260 

0260 

0260 

0260 

0260 

0260 

0260 

0260 

0261 

0261 

0261 


INDXJT, 

COMMON/NUCON/NUSECT (6,300) 
NUTYPE(6,50) 
+ NUPLAC(6,30) 


INDXKT 

NUMATL(6,300 
NuspEC(6, io: 
NUNPLM(6.25) 


NULOC(6.50) 

NUKIND(6,25) 


REAL ONTIME, MACH, MOLWT 
INTEGER SURFSC, SSURFS, PNTSC, 

+ PLACE, SPECIE, SECT, 

CHNGES, 

LOGICAL ORBITR, PAYLOD, OUT 
+ DIRECT, RFAS2, RFSs! 

+ NEWTNL, NEWMFS, NEWMFP, 

+ NEWPL, SUNL, SUNM, 

+ CHATT, CHALT, CHVEL, 

+ CHVIEW, CHTIM, CHRATE, 

+ CHINDX, CHWT, CHDIA, 


RECEVR, 

MATRL, 

CHNGEK, 

ED, 

REFLCT, 

MINTMP, 

SUNH, 

CHSUN, 

CHTAU, 

INDXSP, 


ITITLE, 

ATCODE, 

CHNGEP, 

LEAK, 

NEWCON, 

MAXTMP, 

R41DEP, 

CHDS, 

CHAGE, 

INDXK, 


LTYPE, 

SERIES, 

CHNGPL 

PLUME, 

NTAPE4, 

REPORT, 

NEWDAT, 

CHORIG, 

CHPLUM, 

INDXP, 


KINDS. 

CIDENT, 

MCD, 

NEWTCD, 

GO, 

ADSURF, 

CHLOC. 

CHMF, 

INDXPL 


Di MENS ION SPDATA ( 250 ) , PFDATA ( 250 ) , NPLME ( 25 ) , IPTS( 300 








LOAD IN THE PLUME FUNCTION COEFICIENTS FOR THE FOLLOWING ENGINES 


KKINDS = 25 
DATA(NPLME(K 


,K=1,25 


1 

/ 6H 

RCS, 

2 

6H 

VCS, 

3 

6H 

QMS, 

4 

6H 

tVAPi , 

5 

6H 

E05HE, 

6 

6H 

C02XE, 

7 

6H 

XECH4, 

8 

6H 

El SHE, 

9 

6H 

UMBV1, 

* 

6H 

UMBV2, 

1 

6H 

lUSSM, 

2 

6H 

lUSLM, 

3 

13*6H 

NULL/ 


• T’* • V • ■ 

OF POOR QUALITY 


DO 5 K=1, KKINDS 
NPLUME(K) = NPLME (K 


LOAD IN THE PLUME FUNCTION COEFICIENTS 


DATAIPFDATA 
Cl 

1 /1351., 

2 23.2, 

3 9332., 

4 1.963, 

5 .00404, 

6 .00136. 

7 . 01220 ; 

8 .00243. 

9 .64800. 

* .00136, 

1 15061., 

2 17752.. 


K) ,K= 1,250) 

C2 C3 THETA 1 C5 

10.00. .0126.64.0, 35.0, 

8.65. . 0137.40.0.5.810, 
10.65, .0126,64.0,235.0. 


C6 THETA2 MFLUX 


0840. 180 
.0467, 140. 


6 

.00, 

.0106, 

M8. , 

0. , 

• W W TV/ 

0. , 

1 uw 

148 

1 

.75, 

.0174, 

90., 

0. . 

0. , 

90 

1 

.75, 

.0174, 

90., 

0. . 

0. , 

90 

1 

75. 

.0174, 

90. , 

c. . 

0. , 

90 

1 . 

. 75 , 

.0174, 

90. , 

0. . 

0. , 

90 

1 . 

.75, 

.0174, 

90. , 

0. , 

0. . 

90 

1 . 

,75, 

.0174, 

90. , 

0. , 

0. . 

90 

0. 

65 , 

.0126, 

64., 

299. 

.0322. 

179 


0 . 

UJs 

0 . 

0 . 

0 . 

0 . 

0 . 


64., 352. 


0. .7. 
0..7. 
C..7. 
0. .3. 
.0622,179. 89 0.,3. 


VELOC 

5E+5 , 5H 

5E+5 , 6H 

5E+5.6H 

0E+5.6H 

8E+4.6H 

8E+4.6H 

^E+4.6H 

8E+4.6H 

8E+4.6H 

SE+4,6H 

5E+5.6H 

5E+5.6H 


TYPE 
RCS, 
VCS. 
QMS. 
EVAP1 , 
E05HE, 
C02XE, 
XECH4, 
E13HE. 
UMBV1, 
UMBV2. 
lUSSM. 
lUSLM. 


0261 
0261 
0261 
0261 
0261 
0261 
0261 
0262 
0262 
0262 
0262 
0262 
0262 
0262 
0262 
0262 
0262 
= = 0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 
0263 

0263 

0264 
0264 
0264 
0264 
0264- 
0264 
0264 
0264 
0264 

0264 

0265 
0265 
0265 
0265 
0265 
0265 
0265 
0265 
0265 

0265 

0266 
0256 
0266 
0266 
0266 
0266 
0266 
0266 
0266 
U266 
0267 
0267 
0267 
0267 
0267 


3 130*0./ 


DO 20 K=1 .KKINDS 
DO 10 L=1,10 
PLUMEC(L.K) = PFDATAi 
CONTINUE 


PAG.^ 13 
POOR QUALITY 


!K-1 ) * 10 + L 


LOAD IN THE SPECIES MASS FRACTIONS TO 
DATA(SPDATA(K) ,K=1,250) 


1 

2 

3 

4 

5 

6 

7 

8 
9 


BE USED FOR THE ENGINES 


OUT1 

OUT2 

H20 

N2 

C02 

02 

CO 

H2 

H 

MMH HN03 

/O.O, 

0.0, 

.290, 

.420, 

.078, 

.001, 

. 184, 

.017, 

.001 , 

.002, 

0.0, 

0.0, 

.290, 

.420, 

.078, 

.001, 

. 184, 

.017, 

.001 , 

.002, 

0.0, 

0.0, 

.290, 

.420, 

.078, 

.001 , 

. 184, 

.017, 

.001, 

.002, 

0.0, 

0.0,1 

.000, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0, 

HE 

0.0, 

XE 

0.0, 

CH4 

0.0, 

0.0, 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

1.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0.1, 

0.0, 

0.9. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.9, 

0.1 , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

1.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

.0.0, 

O.O, 

0.0, 

0.0, 

1.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.1, 

0.0, 

0.9, 

AL203 

CO 

HCL 

N2 

H20 

C02 

ALCL 

H2 

ALOCL 

OTHERS 

3130, . 

2713, . 

1803, 

. 0822 , 

.0579, 

.0206, 

.0215, 

.0267, 

.0106, . 

0158, 

3130, . 
130*0. 

2713, . 
/ 

1803, 

.0822, 

.0579, 

.0206, 

,0215, 

.0267, 

.0106, . 

0158, 


DO 40 K=1 , KKINDS 
DO 30 L=1 , 10 
30 SPECMF(L,K)=SPDATAI 
40 CONTINUE 


:k-i )*10+L 


CURRENTLY THERE ARE 48 ENGINES/VENTS USED ON THE ORBITER 
* ♦ MASTER ARRAY FOR ENGINES * * 


FORWARD RCS ENGINES 


0267 

0267 

0267 

0267 

0267 

0268 
0268 
0268 
0268 
02C8 
0268 
0268 
0268 
0268 
0268 
0269 
0269 
0269 
0269 
0269 
0269 
0269 
0269 
0269 

0269 

0270 
0270 
0270 
0270 
0270 
0270 
0270 
0270 
0270 

0270 

0271 
0271 
0271 
0271 


1 

/7112.6HFLF -X.6H 

RCS, 

332, 

-14, 

389, 

0271 

2 

7122.6HFCF -X.6H 

RCS. 

332, 

0. 

391 , 

0271 

3 

7132.6HFRF -X,6H 

RCS. 

332, 

14. 

339. 

0271 

4 

7123.6HFLS +Y.6H 

RCS. 

360, 

-47. 

368, 

0271 

5 

7113,6HFLS +Y.6H 

RCS. 

360, 

-47. 

354, 

0271 

6 

7115,6HFLU +Z,6H 

RCS, 

350, 

-13, 

395, 

0272 

7 

7125.6HFCU +Z.6H 

RCS. 

350, 

0. 

395, 

0272 

ft 

7135,6HFRU +Z.6H 

RCS. 

350, 

13, 

395, 

0272 

9 

7116.6HFLU -Z,6H 

RCS. 

333, • 

-41. 

381, 

0272 

* 

7126.6HFLD -Z.6H 

RCS. 

347, 

-45. 

386, 

0272 

1 

7144.6HFRS -Y,6H 

RCS. 

362, 

47. 

368, 

0272 

2 

7134.6HFRS -Y,6H 

RCS. 

362, 

47. 

354, 

0272 

3 

7136.6HFRD -Z.6H 

RCS. 

333. 

41 . 

381 . 

0272 

4 

7146.6HFRD -Z,6H 

RCS. 

347, 

45. 

386/ 

0272 

T 

RCS ENGINES LEFT L 

IDE OF 

ORBITER 



0272 

DATA! IPTS( I ) ,1=85,156) 




0273 

5 

/7211,6HALA +X.6H 

RCS. 

1557, - 

119, 

473, 

0273 

6 

7231. 6HAL.^ +X.6H 

RCS. 

1557. - 

132, 

473, 

0273 

7 

7243.6HALS *Y.6H 

RCS. 

1516. - 

123, 

459. 

0273 

8 

7223.6HALS +Y.6H 

RCS. 

1529. - 

123, 

459. 

0273 

9 

7233.6HALS +Y.6H 

RCS. 

1542. - 

122, 

459. 

0273 


7213.6HALS +Y.6H 

RCS. 

1555. - 

122. 

459, 

0273 


90 


1 7245.6HALU +2.6H 

2 7225.6HALU +Z.6H 

3 7215.6HALU +Z.6H 

4 72^G.6HALD -Z.6H 

5 7226.6HALD -Z,6H 

6 7236.6HALD -Z.6H 

AFT RCS ENGINES RIGHT 

DATAdPTSm. 1 = 157, 

7 /7311.6HARA +X.6H 
7331.6HARA +X.6H 
7344.6HARS -Y,6H 
7324.6HARS -Y.6H 
7334.6HARS -Y.6H 
7314.6HARS -Y,6H 
7345.6HARU +Z.6H 
7325.6HARU +Z.6H 
7315.6HARU +Z.6H 
7346.6HARD -Z.6H 
7326.6HAR0 -Z.6H 
7336.6HARD -Z.6H 

RCS VERNIER ENGINES 
DATA( IPTS{ I ) .1=229,; 
9 /8116,6HFL0 -Z,6H 
8136.6HFR0 -Z.6H 
8257.6HALD -Z.6H 
8258.6HALS +Y,6H 
8357.6HARD -Z,6H 
8358.6HARS +Y.6H 
FLASH EVAPORATOR 

DATA! IPTSI I ) ,1=265, 

5 /6877.6HARS +Y.6H 

6 6879.6HALS -Y,6H 
QMS ENGINES 

OATAdPTSm, 1=277, 

7 /9000.6H SMALL, 6H 

8 9002, 6H LARGE, 6H 


8 

9 

♦ 

1 

2 

3 

4 

5 

6 

7 

8 


1 

2 

3 

4 


RCS, 
RCS, 
RCS, 
RCS, 
RCS, 
RCS. 
SIDE OF 
228) 
RCS. 
RCS. 
RCS, 
RCS, 
RCS, 
RCS. 
RCS. 
RCS. 
RCS, 
RCS, 
RCS, 
RCS. 

264) 

VCS. 

VCS, 

VCS, 

VCS, 

VCS, 

VCS, 

276) 
EVAP1 , 
EVAP1 . 


1516. 

1529, 

1542, 

1516, 

1529, 

1542, 

ORBI 


-132, 

-132, 

-132, 

- 112 . 

- 111 . 

- 110 , 

TER 


288) 

OMS, 

OMS, 


1557, 

1 19 

1557, 

132, 

1516, 

123, 

1529, 

123, 

1542, 

123, 

1555, 

123, 

1516, 

132, 

1529, 

132, 

1542, 

132, 

1516. 

1 12, 

1529, 

111, 

1542, 

1 10, 

324, 

-46, 

324, 

46. 

1565, 

-144, 

1565, 

-118, 

1565, 

144, 

1565, 

-118, 

1506, 

127, 

1506, 

-127, 

80. 

0, 

,180, 

0. 


481, 

481, 

481, 

437, 

440, 

443/ 


473, 
473. 
459. 
459. 
459. 
459, 
481 . 
481. 
481 . 
437, 
440, 
443/ 


374, 

374, 

459. 

457, 

459, 

457/ 


305. 

305/ 


0 . 

0 / 


KK = 0 


+ + -f + + -V- -f + 


DO 50 K= 1,300, 6 
KK=KK+1 


50 


CIDENT(KK)= IPTS(K) 

CLOC(KK) = IPTS(K+1) 

CTYPE(KK) = IPTS(Kf2) 

CXLOC(KK) = IPTS(K>3) 

CYLOC(KK) = IPTSIK+4) 

CZLOC(KK) = IPTS(K-^5) 

CONTINUE 

KTOTAL = 48 

RETURN 

END 


0RK3I^•AL 

OF POOH 


SUBROUTINE lERROR 


quality 


error MESSAGES* 

m 

RETURN 

END 

SUBROUTINE CLEAR 


0273 

0273 

0273 

0274 
0274 
0274 
0274 
0274 
0274 
0274 
0274 
0274 

0274 

0275 
0275 
0275 
0275 
0275 
0275 
0275 
0275 
0275 

0275 

0276 
0276 
0276 
0276 
0276 
0276 
0276 
0276 
0276 

0276 

0277 
0277 
0277 
0277 
0277 
0277 
0277 
0277 
0277 

0277 

0278 
0278 
0278 
0278 
0278 
0278 
0278 
0278 
0278 

0278 

0279 
0279 
0279 
0279 
0279 
0279 
0279 
0279 
0279 


* *****1 

♦CLEAR CRT SCREE ^' * 

♦ 


THIS ROUTINE IS SET UP TO CLEAR THE SCREEN OF A oEEHIVE TERMINAL 
(MODEL r>M2S) BY OUTPUTTING AN ESC-E SEQUENCE TO THE TERMINAL 
WHICH MUST BE IN ASCII MODE TO RECOGNIZE THE 12-BIT SEQUENCE! 


data ICLS/76730500000000000000B/ 
WRITE(6,6010) ICL^ 

6010 FORMAT(A3) 

RETURN 

END 

SUBROUTINE HEADER ( INDEX ) 


♦ PROGRAM HEADER ♦ 

♦ * 


TO 100 
TO 200 
TO 300 
TO 400 
TO 500 
TO 600 
TO 700 
TO 800 
TO 900 

RAM HEADER 


+ 35H- 

^35H- space II 

♦35H- 

+ 35H- INPUT DECK 

+ 35H- 

♦35H- PREPROCESSOR 
+ 35H- 

♦35H 

RETURN 


-/17X, 

-/17X, 

-/17X, 

-/17X, 

-/17X, 

-/ 17X, 

-/17X, 

-/17X, 

-///72( 1H=) I 


IF( INDEX. EQ. 1 ) GO 
IF( INDEX.EQ.2) GO 
IF( INDEX.EQ.3) GO 
IF( INDEX.EQ.4) GO 
IF( INDEX.EQ.5) GO 
IF( INDEX.EQ.6) GO 
IF( IN0EX.EQ.7) GO 
IF( INDEX.EQ.8) GO 
IF» INOEX.tO.9) GO 

MAIN PROG 

100 CALL CLEAR 
WRITE(6,60.0) 

6010 FORMAT! //17X, 


HEADER FOR SUBROUTIN 

200 WRITEt6.6020) 

6020 FORMAT! // 14X, 



+41H- 

•••41H- PROGRAM CONTROL 
+ 41H- 

■^41H- PARAMETERS 92 


C 0 N T R L. 


-/14X, 
-/14X. 
-/KX, 
-/14X, 
• / 1 4X , 


0279 

0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0281 
0282 
0282 
0282 
0282 

= 0282 
0282 
0282 
0282 
0282 
0282 
0283 
0283 
0283 
0283 
0283 
0283 
0283 
0283 
0283 

0283 

0284 
0284 
0284 
0284 
0284 
0284 
0284 
0284 
0284 

0284 

0285 
0265 
0285 
0285 
0285 
0285 
C285 
0285 
0285 

0285 

0286 


+41H- 

+41H--- 

RETURN 


-/14X, 

-//) 


header for subroutine inputa 


300 WRITE(6,6030) 

6030 format (//9X, 



+51H- 

+51H- CONTAMINATION SOURCE 

Ill'll definition 



RETURN 


-/9X. 

-/9X, 

-/9X, 

-/9X. 

-/9X. 

-/9X, 

-) 


400 RETURN 
500 RETURN 
600 RETURN 
700 RETURN 
800 RETURN 
900 RETURN 
END 


oRiGJf.A'. r//:': ■ 
OF POOR QLALiTT 


0286 

0286 

0286 

0286 

0286 

0286 

0286 

0286 

0286 

G287 

0287 

0287 

C287 

0287 

0287 

0287 

0287 

0287 

0287 

0288 
0288 
0288 
0288 
0288 




93 


